/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_8 / issue_11 / pd

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | 44 01 00 00 54 03 00 00 |Archive.|D...T...|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 42 61 6e 6e 65 72 | 00 00 00 00 ff ff ff ff |.!Banner|........|
|00000070| 46 dc fd ff 74 d3 f1 2b | 00 00 00 00 ff ff ff ff |F...t..+|........|
|00000080| 20 01 00 80 82 21 42 6f | 6f 74 00 00 00 17 98 00 | ....!Bo|ot......|
|00000090| 20 00 00 00 46 eb ff ff | fa 1a 34 24 03 00 df 5b | ...F...|..4$...[|
|000000a0| 20 00 00 00 24 00 00 00 | 82 21 48 65 6c 70 00 00 | ...$...|.!Help..|
|000000b0| 00 17 98 00 8c 0a 00 00 | 46 ff ff ff 23 cd 53 24 |........|F...#.S$|
|000000c0| 03 00 95 de 8c 0a 00 00 | 68 00 00 00 82 21 52 75 |........|h....!Ru|
|000000d0| 6e 00 00 00 00 17 98 00 | 51 00 00 00 46 eb ff ff |n.......|Q...F...|
|000000e0| 49 36 34 24 03 00 bc cb | 51 00 00 00 18 0b 00 00 |I64$....|Q.......|
|000000f0| 82 21 53 70 72 69 74 65 | 73 00 98 00 e0 02 00 00 |.!Sprite|s.......|
|00000100| 46 f9 ff ff ac 0a 34 24 | 03 00 db 7a e0 02 00 00 |F.....4$|...z....|
|00000110| 8d 0b 00 00 82 62 61 6e | 6e 65 72 00 00 17 98 00 |.....ban|ner.....|
|00000120| 03 2c 00 00 46 fb ff ff | e7 c8 55 24 03 00 56 a3 |.,..F...|..U$..V.|
|00000130| 03 2c 00 00 91 0e 00 00 | 82 54 65 6d 70 6c 61 74 |.,......|.Templat|
|00000140| 65 73 00 00 3b 05 00 00 | 46 ec ff ff 6e e3 55 24 |es..;...|F...n.U$|
|00000150| 03 00 47 d6 3b 05 00 00 | b8 3a 00 00 00 24 00 53 |..G.;...|.:...$.S|
|00000160| 00 00 00 00 00 17 98 00 | 00 00 01 00 00 00 0c 00 |........|........|
|00000170| 00 00 0e 00 00 00 5c ff | ff ff 6e 01 0c 9b 73 fd |......\.|..n...s.|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 46 69 6c 65 | 44 61 74 61 82 21 42 6f |....File|Data.!Bo|
|00000360| 6f 74 00 00 00 17 98 00 | 20 00 00 00 46 eb ff ff |ot......| ...F...|
|00000370| fa 1a 34 24 03 00 df 5b | 49 63 6f 6e 73 70 72 69 |..4$...[|Iconspri|
|00000380| 74 65 73 20 3c 4f 62 65 | 79 24 44 69 72 3e 2e 21 |tes <Obe|y$Dir>.!|
|00000390| 53 70 72 69 74 65 73 0a | 46 69 6c 65 44 61 74 61 |Sprites.|FileData|
|000003a0| 82 21 48 65 6c 70 00 00 | 00 17 98 00 8c 0a 00 00 |.!Help..|........|
|000003b0| 46 ff ff ff 23 cd 53 24 | 03 00 95 de 0a 20 20 20 |F...#.S$|.....   |
|000003c0| 20 55 73 69 6e 67 20 61 | 20 42 61 6e 6e 65 72 20 | Using a| Banner |
|000003d0| 61 6e 64 20 52 65 67 69 | 73 74 72 61 74 69 6f 6e |and Regi|stration|
|000003e0| 20 66 69 6c 65 20 77 69 | 74 68 20 61 20 53 68 61 | file wi|th a Sha|
|000003f0| 72 65 77 61 72 65 20 70 | 72 6f 67 72 61 6d 0a 20 |reware p|rogram. |
|00000400| 20 20 20 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |   =====|========|
|00000410| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000420| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000430| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000440| 0a 20 20 20 20 0a 54 68 | 69 73 20 70 72 6f 67 72 |.    .Th|is progr|
|00000450| 61 6d 20 69 6c 6c 75 73 | 74 72 61 74 65 73 20 74 |am illus|trates t|
|00000460| 68 65 20 75 73 65 20 6f | 66 20 61 20 27 42 61 6e |he use o|f a 'Ban|
|00000470| 6e 65 72 27 20 77 69 6e | 64 6f 77 20 61 6e 64 20 |ner' win|dow and |
|00000480| 27 52 65 67 69 73 74 72 | 61 74 69 6f 6e 27 0a 66 |'Registr|ation'.f|
|00000490| 69 6c 65 20 77 69 74 68 | 20 61 20 53 68 61 72 65 |ile with| a Share|
|000004a0| 77 61 72 65 20 70 72 6f | 67 72 61 6d 2e 20 54 68 |ware pro|gram. Th|
|000004b0| 65 20 70 72 6f 67 72 61 | 6d 20 69 74 73 65 6c 66 |e progra|m itself|
|000004c0| 20 61 63 74 75 61 6c 6c | 79 20 63 72 65 61 74 65 | actuall|y create|
|000004d0| 73 20 69 74 73 0a 6f 77 | 6e 20 72 65 67 69 73 74 |s its.ow|n regist|
|000004e0| 72 61 74 69 6f 6e 20 66 | 69 6c 65 2c 20 73 6f 20 |ration f|ile, so |
|000004f0| 79 6f 75 20 63 61 6e 20 | 74 72 79 20 69 74 20 62 |you can |try it b|
|00000500| 6f 74 68 20 77 69 74 68 | 20 61 6e 64 20 77 69 74 |oth with| and wit|
|00000510| 68 6f 75 74 20 74 6f 20 | 73 65 65 0a 74 68 65 20 |hout to |see.the |
|00000520| 65 66 66 65 63 74 73 2e | 0a 0a 49 74 27 73 20 76 |effects.|..It's v|
|00000530| 65 72 79 20 73 69 6d 70 | 6c 65 2c 20 61 6e 64 20 |ery simp|le, and |
|00000540| 69 73 20 77 72 69 74 74 | 65 6e 20 69 6e 20 42 61 |is writt|en in Ba|
|00000550| 73 69 63 20 73 6f 20 79 | 6f 75 20 63 61 6e 20 65 |sic so y|ou can e|
|00000560| 61 73 69 6c 79 20 73 65 | 65 20 68 6f 77 20 69 74 |asily se|e how it|
|00000570| 0a 77 6f 72 6b 73 2e 20 | 54 68 65 20 74 68 72 65 |.works. |The thre|
|00000580| 65 20 6d 61 69 6e 20 70 | 72 6f 63 65 64 75 72 65 |e main p|rocedure|
|00000590| 73 20 77 68 69 63 68 20 | 63 72 65 61 74 65 20 74 |s which |create t|
|000005a0| 68 65 20 52 65 67 69 73 | 74 65 72 20 66 69 6c 65 |he Regis|ter file|
|000005b0| 2c 20 64 65 63 6f 64 65 | 0a 69 74 20 69 66 20 69 |, decode|.it if i|
|000005c0| 74 20 65 78 69 73 74 73 | 20 77 68 65 6e 20 74 68 |t exists| when th|
|000005d0| 65 20 70 72 6f 67 72 61 | 6d 20 69 73 20 73 74 61 |e progra|m is sta|
|000005e0| 72 74 65 64 2c 20 6f 72 | 20 64 69 73 70 6c 61 79 |rted, or| display|
|000005f0| 20 74 68 65 20 42 61 6e | 6e 65 72 20 69 66 20 69 | the Ban|ner if i|
|00000600| 74 0a 69 74 20 69 73 6e | 27 74 20 66 6f 75 6e 64 |t.it isn|'t found|
|00000610| 2c 20 61 72 65 20 72 69 | 67 68 74 20 61 74 20 74 |, are ri|ght at t|
|00000620| 68 65 20 65 6e 64 2e 20 | 54 68 65 79 20 61 6c 6c |he end. |They all|
|00000630| 20 68 61 76 65 20 65 78 | 74 65 6e 73 69 76 65 20 | have ex|tensive |
|00000640| 63 6f 6d 6d 65 6e 74 73 | 2e 0a 0a 54 68 65 20 65 |comments|...The e|
|00000650| 6e 63 72 79 70 74 69 6f | 6e 20 6d 65 74 68 6f 64 |ncryptio|n method|
|00000660| 20 75 73 65 64 20 69 6e | 20 74 68 65 20 52 65 67 | used in| the Reg|
|00000670| 69 73 74 65 72 20 66 69 | 6c 65 20 69 73 20 76 65 |ister fi|le is ve|
|00000680| 72 79 20 63 72 75 64 65 | 2c 20 62 75 74 20 74 68 |ry crude|, but th|
|00000690| 69 73 0a 70 72 6f 67 72 | 61 6d 20 69 73 20 6d 65 |is.progr|am is me|
|000006a0| 61 6e 74 20 74 6f 20 69 | 6c 6c 75 73 74 72 61 74 |ant to i|llustrat|
|000006b0| 65 20 74 68 65 20 70 72 | 69 6e 63 69 70 6c 65 2c |e the pr|inciple,|
|000006c0| 20 61 6e 64 20 79 6f 75 | 20 77 69 6c 6c 20 6e 6f | and you| will no|
|000006d0| 20 64 6f 75 62 74 0a 64 | 65 76 69 73 65 20 79 6f | doubt.d|evise yo|
|000006e0| 75 72 20 6f 77 6e 20 73 | 65 63 75 72 69 74 79 20 |ur own s|ecurity |
|000006f0| 73 79 73 74 65 6d 2e 0a | 0a 54 68 65 20 66 69 6c |system..|.The fil|
|00000700| 65 20 69 73 20 61 6c 77 | 61 79 73 20 36 34 20 62 |e is alw|ays 64 b|
|00000710| 79 74 65 73 20 6c 6f 6e | 67 20 66 6f 72 20 73 69 |ytes lon|g for si|
|00000720| 6d 70 6c 69 63 69 74 79 | 2e 20 54 68 65 20 66 69 |mplicity|. The fi|
|00000730| 72 73 74 20 34 20 62 79 | 74 65 73 20 66 6f 72 6d |rst 4 by|tes form|
|00000740| 0a 61 20 27 63 68 65 63 | 6b 73 75 6d 27 2c 20 77 |.a 'chec|ksum', w|
|00000750| 68 69 63 68 20 63 6f 6e | 73 69 73 74 73 20 6f 66 |hich con|sists of|
|00000760| 20 74 68 65 20 74 6f 74 | 61 6c 20 41 53 43 49 49 | the tot|al ASCII|
|00000770| 20 76 61 6c 75 65 20 6f | 66 20 74 68 65 20 63 68 | value o|f the ch|
|00000780| 61 72 61 63 74 65 72 73 | 0a 69 6e 20 74 68 65 20 |aracters|.in the |
|00000790| 75 73 65 72 27 73 20 6e | 61 6d 65 2c 20 69 6e 63 |user's n|ame, inc|
|000007a0| 6c 75 64 69 6e 67 20 74 | 68 65 20 74 65 72 6d 69 |luding t|he termi|
|000007b0| 6e 61 74 69 6e 67 20 43 | 52 2e 0a 0a 45 61 63 68 |nating C|R...Each|
|000007c0| 20 63 68 61 72 61 63 74 | 65 72 20 69 6e 20 74 68 | charact|er in th|
|000007d0| 65 20 6e 61 6d 65 20 69 | 73 20 45 4f 52 27 65 64 |e name i|s EOR'ed|
|000007e0| 20 77 69 74 68 20 37 20 | 77 68 65 6e 20 74 68 65 | with 7 |when the|
|000007f0| 20 66 69 6c 65 20 69 73 | 20 53 61 76 65 64 2c 20 | file is| Saved, |
|00000800| 61 6e 64 0a 69 74 20 69 | 73 20 74 68 65 6e 20 45 |and.it i|s then E|
|00000810| 4f 52 27 65 64 20 77 69 | 74 68 20 74 68 65 20 73 |OR'ed wi|th the s|
|00000820| 61 6d 65 20 6e 75 6d 62 | 65 72 20 74 6f 20 64 65 |ame numb|er to de|
|00000830| 63 6f 64 65 20 69 74 2e | 20 49 66 20 74 68 65 20 |code it.| If the |
|00000840| 63 68 65 63 6b 73 75 6d | 0a 64 6f 65 73 6e 27 74 |checksum|.doesn't|
|00000850| 20 74 61 6c 6c 79 20 61 | 6e 20 65 72 72 6f 72 20 | tally a|n error |
|00000860| 69 73 20 67 65 6e 65 72 | 61 74 65 64 20 61 6e 64 |is gener|ated and|
|00000870| 20 74 68 65 20 70 72 6f | 67 72 61 6d 20 71 75 69 | the pro|gram qui|
|00000880| 74 73 2e 0a 0a 54 6f 20 | 63 72 65 61 74 65 20 61 |ts...To |create a|
|00000890| 20 52 65 67 69 73 74 72 | 61 74 69 6f 6e 20 66 69 | Registr|ation fi|
|000008a0| 6c 65 20 64 6f 75 62 6c | 65 2d 63 6c 69 63 6b 20 |le doubl|e-click |
|000008b0| 6f 6e 20 74 68 65 20 21 | 42 61 6e 6e 65 72 20 61 |on the !|Banner a|
|000008c0| 70 70 6c 69 63 61 74 69 | 6f 6e 2e 0a 57 68 65 6e |pplicati|on..When|
|000008d0| 20 79 6f 75 20 66 69 72 | 73 74 20 52 75 6e 20 69 | you fir|st Run i|
|000008e0| 74 20 79 6f 75 20 77 69 | 6c 6c 20 73 65 65 20 74 |t you wi|ll see t|
|000008f0| 68 65 20 42 61 6e 6e 65 | 72 20 77 69 6e 64 6f 77 |he Banne|r window|
|00000900| 2c 20 77 68 69 63 68 20 | 73 68 6f 75 6c 64 20 6f |, which |should o|
|00000910| 70 65 6e 0a 69 6e 20 74 | 68 65 20 63 65 6e 74 72 |pen.in t|he centr|
|00000920| 65 20 6f 66 20 74 68 65 | 20 73 63 72 65 65 6e 20 |e of the| screen |
|00000930| 61 6e 64 20 73 74 61 79 | 20 74 68 65 72 65 20 66 |and stay| there f|
|00000940| 6f 72 20 66 69 76 65 20 | 73 65 63 6f 6e 64 73 2e |or five |seconds.|
|00000950| 20 49 74 20 77 69 6c 6c | 0a 74 68 65 6e 20 63 6c | It will|.then cl|
|00000960| 6f 73 65 20 61 6e 64 20 | 74 68 65 20 70 72 6f 67 |ose and |the prog|
|00000970| 72 61 6d 20 77 69 6c 6c | 20 69 6e 73 74 61 6c 6c |ram will| install|
|00000980| 20 69 74 73 65 6c 66 20 | 6f 6e 20 74 68 65 20 69 | itself |on the i|
|00000990| 63 6f 6e 20 62 61 72 20 | 69 6e 20 74 68 65 0a 75 |con bar |in the.u|
|000009a0| 73 75 61 6c 20 77 61 79 | 2e 0a 0a 43 6c 69 63 6b |sual way|...Click|
|000009b0| 20 4d 45 4e 55 20 6f 6e | 20 74 68 65 20 69 63 6f | MENU on| the ico|
|000009c0| 6e 20 61 6e 64 20 6f 70 | 65 6e 20 74 68 65 20 27 |n and op|en the '|
|000009d0| 69 6e 66 6f 27 20 77 69 | 6e 64 6f 77 2e 20 59 6f |info' wi|ndow. Yo|
|000009e0| 75 20 77 69 6c 6c 20 73 | 65 65 20 74 68 61 74 20 |u will s|ee that |
|000009f0| 69 6e 0a 74 68 65 20 27 | 52 65 67 20 74 6f 27 20 |in.the '|Reg to' |
|00000a00| 69 63 6f 6e 20 69 74 20 | 73 61 79 73 20 27 2a 2a |icon it |says '**|
|00000a10| 55 6e 72 65 67 69 73 74 | 65 72 65 64 2a 2a 27 2e |Unregist|ered**'.|
|00000a20| 20 4e 6f 77 20 63 6c 69 | 63 6b 20 6f 6e 20 27 52 | Now cli|ck on 'R|
|00000a30| 65 67 69 73 74 65 72 27 | 20 6f 6e 0a 74 68 65 20 |egister'| on.the |
|00000a40| 4d 65 6e 75 20 61 6e 64 | 20 61 20 77 69 6e 64 6f |Menu and| a windo|
|00000a50| 77 20 77 69 6c 6c 20 6f | 70 65 6e 2e 20 45 6e 74 |w will o|pen. Ent|
|00000a60| 65 72 20 79 6f 75 72 20 | 6e 61 6d 65 20 69 6e 20 |er your |name in |
|00000a70| 74 68 65 20 69 63 6f 6e | 2c 20 6f 70 65 6e 20 74 |the icon|, open t|
|00000a80| 68 65 0a 21 42 61 6e 6e | 65 72 20 61 70 70 6c 69 |he.!Bann|er appli|
|00000a90| 63 61 74 69 6f 6e 20 64 | 69 72 65 63 74 6f 72 79 |cation d|irectory|
|00000aa0| 20 61 6e 64 20 64 72 61 | 67 20 74 68 65 20 44 61 | and dra|g the Da|
|00000ab0| 74 61 20 66 69 6c 65 20 | 69 63 6f 6e 20 74 6f 20 |ta file |icon to |
|00000ac0| 69 74 2e 20 54 68 69 73 | 0a 73 68 6f 75 6c 64 20 |it. This|.should |
|00000ad0| 73 61 76 65 20 61 20 44 | 61 74 61 20 66 69 6c 65 |save a D|ata file|
|00000ae0| 20 6e 61 6d 65 64 20 27 | 52 65 67 69 73 74 65 72 | named '|Register|
|00000af0| 27 20 69 6e 20 74 68 65 | 20 61 70 70 6c 69 63 61 |' in the| applica|
|00000b00| 74 69 6f 6e 20 64 69 72 | 65 63 74 6f 72 79 2e 0a |tion dir|ectory..|
|00000b10| 0a 4e 6f 77 20 51 75 69 | 74 20 74 68 65 20 70 72 |.Now Qui|t the pr|
|00000b20| 6f 67 72 61 6d 20 61 6e | 64 20 72 65 2d 73 74 61 |ogram an|d re-sta|
|00000b30| 72 74 20 69 74 2e 20 54 | 68 69 73 20 74 69 6d 65 |rt it. T|his time|
|00000b40| 2c 20 77 69 74 68 20 74 | 68 65 20 72 65 67 69 73 |, with t|he regis|
|00000b50| 74 65 72 20 66 69 6c 65 | 0a 70 72 65 73 65 6e 74 |ter file|.present|
|00000b60| 2c 20 74 68 65 20 42 61 | 6e 6e 65 72 20 77 69 6e |, the Ba|nner win|
|00000b70| 64 6f 77 20 73 68 6f 75 | 6c 64 20 6e 6f 74 20 61 |dow shou|ld not a|
|00000b80| 70 70 65 61 72 2e 20 49 | 66 20 79 6f 75 20 6f 70 |ppear. I|f you op|
|00000b90| 65 6e 20 74 68 65 20 49 | 6e 66 6f 0a 77 69 6e 64 |en the I|nfo.wind|
|00000ba0| 6f 77 20 79 6f 75 20 73 | 68 6f 75 6c 64 20 66 69 |ow you s|hould fi|
|00000bb0| 6e 64 20 79 6f 75 72 20 | 6f 77 6e 20 6e 61 6d 65 |nd your |own name|
|00000bc0| 20 69 6e 20 74 68 65 20 | 27 52 65 67 20 74 6f 27 | in the |'Reg to'|
|00000bd0| 20 69 63 6f 6e 2e 0a 0a | 41 6c 74 68 6f 75 67 68 | icon...|Although|
|00000be0| 20 49 20 72 65 74 61 69 | 6e 20 63 6f 70 79 72 69 | I retai|n copyri|
|00000bf0| 67 68 74 20 6f 76 65 72 | 20 74 68 65 20 70 72 6f |ght over| the pro|
|00000c00| 67 72 61 6d 20 49 20 61 | 6d 20 68 61 70 70 79 20 |gram I a|m happy |
|00000c10| 66 6f 72 20 61 6e 79 6f | 6e 65 20 74 6f 0a 75 73 |for anyo|ne to.us|
|00000c20| 65 20 74 68 65 20 73 79 | 73 74 65 6d 2c 20 70 72 |e the sy|stem, pr|
|00000c30| 6f 63 65 64 75 72 65 73 | 2c 20 61 6e 64 20 69 64 |ocedures|, and id|
|00000c40| 65 61 73 20 69 6e 20 74 | 68 65 69 72 20 6f 77 6e |eas in t|heir own|
|00000c50| 20 53 68 61 72 65 77 61 | 72 65 20 70 72 6f 67 72 | Sharewa|re progr|
|00000c60| 61 6d 73 2e 0a 0a 20 20 | 20 20 20 20 20 20 20 20 |ams...  |        |
|00000c70| 20 20 20 20 20 20 44 61 | 76 69 64 20 48 6f 6c 64 |      Da|vid Hold|
|00000c80| 65 6e 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |en.     |        |
|00000c90| 20 20 20 33 39 20 4b 6e | 69 67 68 74 6f 6e 20 50 |   39 Kn|ighton P|
|00000ca0| 61 72 6b 20 52 6f 61 64 | 0a 20 20 20 20 20 20 20 |ark Road|.       |
|00000cb0| 20 20 20 20 20 20 20 20 | 20 53 79 64 65 6e 68 61 |        | Sydenha|
|00000cc0| 6d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |m.      |        |
|00000cd0| 20 20 4c 6f 6e 64 6f 6e | 20 53 45 32 36 20 35 52 |  London| SE26 5R|
|00000ce0| 4e 0a 0a 0a 50 2e 53 2e | 20 41 73 20 74 68 65 20 |N...P.S.| As the |
|00000cf0| 70 72 6f 67 72 61 6d 20 | 77 61 73 20 77 72 69 74 |program |was writ|
|00000d00| 74 65 6e 20 69 6e 20 61 | 20 68 75 72 72 79 20 74 |ten in a| hurry t|
|00000d10| 6f 20 69 6c 6c 75 73 74 | 72 61 74 65 20 74 68 65 |o illust|rate the|
|00000d20| 20 69 64 65 61 20 49 0a | 64 69 64 6e 27 74 20 68 | idea I.|didn't h|
|00000d30| 61 76 65 20 74 69 6d 65 | 20 74 6f 20 63 72 65 61 |ave time| to crea|
|00000d40| 74 65 20 61 20 70 72 6f | 70 65 72 20 73 70 72 69 |te a pro|per spri|
|00000d50| 74 65 20 66 6f 72 20 69 | 74 2e 20 49 20 74 68 65 |te for i|t. I the|
|00000d60| 72 65 66 6f 72 65 0a 27 | 62 6f 72 72 6f 77 65 64 |refore.'|borrowed|
|00000d70| 27 20 74 68 65 20 69 63 | 6f 6e 20 66 72 6f 6d 20 |' the ic|on from |
|00000d80| 74 68 65 20 70 72 6f 67 | 72 61 6d 20 27 47 65 72 |the prog|ram 'Ger|
|00000d90| 6d 61 6e 27 20 62 79 20 | 45 6c 6c 69 6f 74 20 48 |man' by |Elliot H|
|00000da0| 75 67 68 65 73 2c 20 77 | 68 69 63 68 0a 77 61 73 |ughes, w|hich.was|
|00000db0| 20 74 68 65 20 63 6c 6f | 73 65 73 74 20 72 65 61 | the clo|sest rea|
|00000dc0| 64 79 20 6d 61 64 65 20 | 73 70 72 69 74 65 20 49 |dy made |sprite I|
|00000dd0| 20 63 6f 75 6c 64 20 66 | 69 6e 64 20 74 68 61 74 | could f|ind that|
|00000de0| 20 73 65 65 6d 73 20 74 | 6f 20 66 69 74 20 74 68 | seems t|o fit th|
|00000df0| 65 0a 21 42 61 6e 6e 65 | 72 20 6e 61 6d 65 2e 20 |e.!Banne|r name. |
|00000e00| 49 20 68 6f 70 65 20 74 | 68 69 73 20 65 78 70 6c |I hope t|his expl|
|00000e10| 61 69 6e 73 20 74 68 65 | 20 73 6f 6d 65 77 68 61 |ains the| somewha|
|00000e20| 74 20 69 6e 61 70 70 72 | 6f 70 72 69 61 74 65 20 |t inappr|opriate |
|00000e30| 75 73 65 20 6f 66 20 74 | 68 65 0a 47 65 72 6d 61 |use of t|he.Germa|
|00000e40| 6e 20 66 6c 61 67 21 0a | 46 69 6c 65 44 61 74 61 |n flag!.|FileData|
|00000e50| 82 21 52 75 6e 00 00 00 | 00 17 98 00 51 00 00 00 |.!Run...|....Q...|
|00000e60| 46 eb ff ff 49 36 34 24 | 03 00 bc cb 49 63 6f 6e |F...I64$|....Icon|
|00000e70| 73 70 72 69 74 65 73 20 | 3c 4f 62 65 79 24 44 69 |sprites |<Obey$Di|
|00000e80| 72 3e 2e 21 53 70 72 69 | 74 65 73 0a 57 69 6d 70 |r>.!Spri|tes.Wimp|
|00000e90| 73 6c 6f 74 20 2d 6d 69 | 6e 20 33 32 4b 20 2d 6d |slot -mi|n 32K -m|
|00000ea0| 61 78 20 33 32 4b 0a 52 | 75 6e 20 3c 4f 62 65 79 |ax 32K.R|un <Obey|
|00000eb0| 24 44 69 72 3e 2e 62 61 | 6e 6e 65 72 0a 46 69 6c |$Dir>.ba|nner.Fil|
|00000ec0| 65 44 61 74 61 82 21 53 | 70 72 69 74 65 73 00 98 |eData.!S|prites..|
|00000ed0| 00 e0 02 00 00 46 f9 ff | ff ac 0a 34 24 03 00 db |.....F..|...4$...|
|00000ee0| 7a 01 00 00 00 10 00 00 | 00 e4 02 00 00 d4 02 00 |z.......|........|
|00000ef0| 00 21 62 61 6e 6e 65 72 | 00 00 00 00 00 04 00 00 |.!banner|........|
|00000f00| 00 10 00 00 00 00 00 00 | 00 07 00 00 00 2c 00 00 |........|.....,..|
|00000f10| 00 80 01 00 00 0c 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 77 67 67 |........|.....wgg|
|00000f30| 66 66 66 66 66 66 66 66 | 66 66 66 76 76 77 00 00 |ffffffff|fffvvw..|
|00000f40| 00 70 25 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.p%.....|........|
|00000f50| 00 00 00 00 00 77 25 72 | 76 76 66 66 06 00 00 00 |.....w%r|vvff....|
|00000f60| 00 00 00 00 00 00 00 00 | 00 70 25 77 67 67 67 66 |........|.p%wgggf|
|00000f70| 56 66 66 05 00 00 00 00 | 00 00 00 00 00 70 25 77 |Vff.....|.....p%w|
|00000f80| 76 76 66 66 66 66 66 66 | 66 66 76 76 76 07 00 00 |vvffffff|ffvvv...|
|00000f90| 00 70 25 77 67 67 66 66 | 66 66 66 66 66 66 67 67 |.p%wggff|ffffffgg|
|00000fa0| 77 07 00 00 00 70 25 bb | bb bb bb bb 6b 66 66 66 |w....p%.|....kfff|
|00000fb0| 66 66 76 76 76 07 00 00 | 00 70 25 bb bb bb bb bb |ffvvv...|.p%.....|
|00000fc0| bb bb bb 6b 66 66 66 67 | 77 07 00 00 00 70 25 bb |...kfffg|w....p%.|
|00000fd0| bb bb bb bb bb bb bb bb | bb bb bb bb bb 0b 00 00 |........|........|
|00000fe0| 00 70 25 ee 9e 9e 9e 9e | e9 bb bb bb bb bb bb bb |.p%.....|........|
|00000ff0| bb 0b 00 00 00 70 25 ee | e9 e9 e9 99 99 99 99 be |.....p%.|........|
|00001000| bb bb bb bb bb 0b 00 00 | 00 70 25 ee 9e 9e 9e 99 |........|.p%.....|
|00001010| 99 99 99 99 99 99 99 9e | ee 0e 00 00 00 70 25 ee |........|.....p%.|
|00001020| e9 e9 99 99 99 99 99 99 | 99 99 e9 e9 e9 0e 00 00 |........|........|
|00001030| 00 70 25 00 00 00 00 00 | 90 99 99 99 99 99 9e 9e |.p%.....|........|
|00001040| ee 0e 00 00 00 7e 25 9e | 99 99 99 99 99 99 99 99 |.....~%.|........|
|00001050| 99 99 e9 e9 e9 0e 00 00 | 00 77 25 77 77 77 77 77 |........|.w%wwwww|
|00001060| 77 77 77 77 77 77 77 77 | 77 77 00 00 00 00 00 00 |wwwwwwww|ww......|
|00001070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010a0| 00 00 00 00 00 00 00 00 | 00 f0 ff 00 00 00 00 00 |........|........|
|000010b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 f0 ff ff |........|........|
|000010c0| ff ff ff ff ff 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010d0| 00 f0 ff ff ff ff ff ff | ff ff ff 0f 00 00 00 00 |........|........|
|000010e0| 00 00 00 00 00 f0 ff ff | ff ff ff ff ff ff ff ff |........|........|
|000010f0| ff ff ff ff ff 0f 00 00 | 00 f0 ff ff ff ff ff ff |........|........|
|00001100| ff ff ff ff ff ff ff ff | ff 0f 00 00 00 f0 ff ff |........|........|
|00001110| ff ff ff ff ff ff ff ff | ff ff ff ff ff 0f 00 00 |........|........|
|00001120| 00 f0 ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00001130| ff 0f 00 00 00 f0 ff ff | ff ff ff ff ff ff ff ff |........|........|
|00001140| ff ff ff ff ff 0f 00 00 | 00 f0 ff ff ff ff ff ff |........|........|
|00001150| ff ff ff ff ff ff ff ff | ff 0f 00 00 00 f0 ff ff |........|........|
|00001160| ff ff ff ff ff ff ff ff | ff ff ff ff ff 0f 00 00 |........|........|
|00001170| 00 f0 ff 00 00 00 00 00 | f0 ff ff ff ff ff ff ff |........|........|
|00001180| ff 0f 00 00 00 f0 ff 00 | 00 00 00 00 00 00 00 f0 |........|........|
|00001190| ff ff ff ff ff 0f 00 00 | 00 f0 ff 00 00 00 00 00 |........|........|
|000011a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 f0 ff 00 |........|........|
|000011b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011c0| 00 46 69 6c 65 44 61 74 | 61 82 62 61 6e 6e 65 72 |.FileDat|a.banner|
|000011d0| 00 00 17 98 00 03 2c 00 | 00 46 fb ff ff e7 c8 55 |......,.|.F.....U|
|000011e0| 24 03 00 56 a3 0d 00 01 | 12 f4 20 2d 2d 3e 20 42 |$..V....|.. --> B|
|000011f0| 61 6e 6e 65 72 20 20 0d | 00 02 50 f4 20 20 44 65 |anner  .|..P.  De|
|00001200| 6d 6f 6e 73 74 72 61 74 | 65 73 20 75 73 65 20 6f |monstrat|es use o|
|00001210| 66 20 42 61 6e 6e 65 72 | 20 61 6e 64 20 52 65 67 |f Banner| and Reg|
|00001220| 69 73 74 72 61 74 69 6f | 6e 20 66 69 6c 65 20 77 |istratio|n file w|
|00001230| 69 74 68 20 61 20 53 68 | 61 72 65 77 61 72 65 20 |ith a Sh|areware |
|00001240| 70 72 6f 67 72 61 6d 0d | 00 03 04 0d 00 04 3c f4 |program.|......<.|
|00001250| ab ab ab ab ab ab ab ab | ab ab ab ab ab ab ab ab |........|........|
|00001260| ab ab ab ab ab ab ab ab | ab ab ab ab ab ab ab ab |........|........|
|00001270| ab ab ab ab ab ab ab ab | ab ab ab ab ab ab ab ab |........|........|
|00001280| ab ab ab ab ab ab ab 0d | 00 05 3c f4 bb bb bb bb |........|..<.....|
|00001290| bb bb bb bb bb bb bb bb | bb bb bb bb bb bb bb bb |........|........|
|000012a0| bb bb bb bb bb bb bb bb | bb bb bb bb bb bb bb bb |........|........|
|000012b0| bb bb bb bb bb bb bb bb | bb bb bb bb bb bb bb bb |........|........|
|000012c0| bb bb bb 0d 00 06 3c f4 | 20 54 68 69 73 20 70 72 |......<.| This pr|
|000012d0| 6f 67 72 61 6d 20 61 6e | 64 20 61 6c 6c 20 64 6f |ogram an|d all do|
|000012e0| 63 75 6d 65 6e 74 61 74 | 69 6f 6e 20 a9 20 44 61 |cumentat|ion . Da|
|000012f0| 76 69 64 20 48 6f 6c 64 | 65 6e 20 31 39 39 35 0d |vid Hold|en 1995.|
|00001300| 00 07 3c f4 ab ab ab ab | ab ab ab ab ab ab ab ab |..<.....|........|
|00001310| ab ab ab ab ab ab ab ab | ab ab ab ab ab ab ab ab |........|........|
|00001320| ab ab ab ab ab ab ab ab | ab ab ab ab ab ab ab ab |........|........|
|00001330| ab ab ab ab ab ab ab ab | ab ab ab 0d 00 08 3c f4 |........|......<.|
|00001340| bb bb bb bb bb bb bb bb | bb bb bb bb bb bb bb bb |........|........|
|00001350| bb bb bb bb bb bb bb bb | bb bb bb bb bb bb bb bb |........|........|
|00001360| bb bb bb bb bb bb bb bb | bb bb bb bb bb bb bb bb |........|........|
|00001370| bb bb bb bb bb bb bb 0d | 00 09 04 0d 00 0a 1a 76 |........|.......v|
|00001380| 65 72 73 69 6f 6e 5f 6e | 75 6d 62 65 72 24 3d 22 |ersion_n|umber$="|
|00001390| 30 2e 31 30 22 0d 00 0b | 0f f2 69 6e 69 74 69 61 |0.10"...|..initia|
|000013a0| 6c 69 73 65 0d 00 0c 1a | ee 85 20 f2 72 65 70 6f |lise....|.. .repo|
|000013b0| 72 74 5f 65 72 72 6f 72 | 28 f6 24 2c b9 29 0d 00 |rt_error|(.$,.)..|
|000013c0| 0d 04 0d 00 0e 05 f5 0d | 00 0f 27 c8 99 20 22 57 |........|..'.. "W|
|000013d0| 69 6d 70 5f 50 6f 6c 6c | 22 2c 6d 61 73 6b 25 2c |imp_Poll|",mask%,|
|000013e0| 62 6c 6b 25 20 b8 20 72 | 65 61 73 6f 6e 25 0d 00 |blk% . r|eason%..|
|000013f0| 10 10 c8 8e 20 72 65 61 | 73 6f 6e 25 20 ca 0d 00 |.... rea|son% ...|
|00001400| 11 22 20 c9 20 32 3a c8 | 99 22 57 69 6d 70 5f 4f |." . 2:.|."Wimp_O|
|00001410| 70 65 6e 57 69 6e 64 6f | 77 22 2c 2c 62 6c 6b 25 |penWindo|w",,blk%|
|00001420| 0d 00 12 23 20 c9 20 33 | 3a c8 99 22 57 69 6d 70 |...# . 3|:.."Wimp|
|00001430| 5f 43 6c 6f 73 65 57 69 | 6e 64 6f 77 22 2c 2c 62 |_CloseWi|ndow",,b|
|00001440| 6c 6b 25 0d 00 13 0f 20 | c9 20 36 3a f2 63 6c 69 |lk%.... |. 6:.cli|
|00001450| 63 6b 0d 00 14 13 20 c9 | 20 37 3a f2 64 72 61 67 |ck.... .| 7:.drag|
|00001460| 5f 74 65 72 6d 0d 00 15 | 24 20 c9 20 38 3a c8 99 |_term...|$ . 8:..|
|00001470| 22 57 69 6d 70 5f 50 72 | 6f 63 65 73 73 4b 65 79 |"Wimp_Pr|ocessKey|
|00001480| 22 2c 62 6c 6b 25 21 32 | 34 0d 00 16 10 20 c9 20 |",blk%!2|4.... . |
|00001490| 39 3a f2 73 65 6c 65 63 | 74 0d 00 17 19 20 c9 20 |9:.selec|t.... . |
|000014a0| 31 37 2c 31 38 3a c8 8e | 20 62 6c 6b 25 21 31 36 |17,18:..| blk%!16|
|000014b0| 20 ca 0d 00 18 19 20 20 | 20 20 20 20 20 20 20 20 | .....  |        |
|000014c0| 20 20 20 c9 20 30 3a f2 | 64 69 65 0d 00 19 1a 20 |   . 0:.|die.... |
|000014d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 c9 20 32 3a |        |    . 2:|
|000014e0| f2 73 61 76 65 0d 00 1a | 11 20 20 20 20 20 20 20 |.save...|.       |
|000014f0| 20 20 20 20 20 cb 0d 00 | 1b 05 cb 0d 00 1c 07 fd |     ...|........|
|00001500| 20 a3 0d 00 1d 04 0d 00 | 1e 0c dd f2 73 65 6c 65 | .......|....sele|
|00001510| 63 74 0d 00 1f 3b c8 99 | 22 57 69 6d 70 5f 47 65 |ct...;..|"Wimp_Ge|
|00001520| 74 50 6f 69 6e 74 65 72 | 49 6e 66 6f 22 2c 2c 62 |tPointer|Info",,b|
|00001530| 6c 6b 25 2b 26 43 30 3a | 6d 62 25 3d 62 6c 6b 25 |lk%+&C0:|mb%=blk%|
|00001540| 21 26 43 38 3a 6d 79 25 | 3d 62 6c 6b 25 0d 00 20 |!&C8:my%|=blk%.. |
|00001550| 11 e7 20 62 6c 6b 25 21 | 34 3d 2d 31 20 8c 0d 00 |.. blk%!|4=-1 ...|
|00001560| 21 10 20 20 c8 8e 20 21 | 62 6c 6b 25 20 ca 0d 00 |!.  .. !|blk% ...|
|00001570| 22 3b 20 20 20 20 c9 20 | 31 3a 21 62 6c 6b 25 3d |";    . |1:!blk%=|
|00001580| 72 65 67 69 73 74 65 72 | 5f 77 25 3a c8 99 22 57 |register|_w%:.."W|
|00001590| 69 6d 70 5f 47 65 74 57 | 69 6e 64 6f 77 53 74 61 |imp_GetW|indowSta|
|000015a0| 74 65 22 2c 2c 62 6c 6b | 25 0d 00 23 28 20 20 20 |te",,blk|%..#(   |
|000015b0| 20 20 20 20 20 20 20 20 | c8 99 22 57 69 6d 70 5f |        |.."Wimp_|
|000015c0| 4f 70 65 6e 57 69 6e 64 | 6f 77 22 2c 2c 62 6c 6b |OpenWind|ow",,blk|
|000015d0| 25 0d 00 24 28 20 20 20 | 20 20 20 20 20 20 20 20 |%..$(   |        |
|000015e0| f2 73 65 74 5f 63 61 72 | 65 74 28 72 65 67 69 73 |.set_car|et(regis|
|000015f0| 74 65 72 5f 77 25 2c 31 | 29 0d 00 25 10 20 20 20 |ter_w%,1|)..%.   |
|00001600| 20 c9 20 32 3a f2 64 69 | 65 0d 00 26 07 20 20 cb | . 2:.di|e..&.  .|
|00001610| 0d 00 27 05 cd 0d 00 28 | 30 e7 20 6d 62 25 3d 31 |..'....(|0. mb%=1|
|00001620| 20 c8 99 22 57 69 6d 70 | 5f 43 72 65 61 74 65 4d | .."Wimp|_CreateM|
|00001630| 65 6e 75 22 2c 2c 6d 61 | 69 6e 5f 6d 25 2c 6d 78 |enu",,ma|in_m%,mx|
|00001640| 25 2c 6d 68 25 0d 00 29 | 05 e1 0d 00 2a 04 0d 00 |%,mh%..)|....*...|
|00001650| 2b 0b dd f2 63 6c 69 63 | 6b 0d 00 2c 0f ea 20 69 |+...clic|k..,.. i|
|00001660| 63 6e 25 2c 77 69 6e 25 | 0d 00 2d 3f c8 99 22 57 |cn%,win%|..-?.."W|
|00001670| 69 6d 70 5f 47 65 74 50 | 6f 69 6e 74 65 72 49 6e |imp_GetP|ointerIn|
|00001680| 66 6f 22 2c 2c 62 6c 6b | 25 2b 26 43 30 3a 6d 62 |fo",,blk|%+&C0:mb|
|00001690| 25 3d 62 6c 6b 25 21 26 | 43 38 3a 6d 79 25 3d 62 |%=blk%!&|C8:my%=b|
|000016a0| 6c 6b 25 21 26 43 34 0d | 00 2e 1d 77 69 6e 25 3d |lk%!&C4.|...win%=|
|000016b0| 62 6c 6b 25 21 31 32 3a | 69 63 6e 25 3d 62 6c 6b |blk%!12:|icn%=blk|
|000016c0| 25 21 31 36 0d 00 2f 0d | c8 8e 20 77 69 6e 25 20 |%!16../.|.. win% |
|000016d0| ca 0d 00 30 18 20 c9 20 | 2d 32 3a e7 20 69 63 6e |...0. . |-2:. icn|
|000016e0| 25 3d 69 63 6f 6e 25 20 | 8c 0d 00 31 16 20 20 20 |%=icon% |...1.   |
|000016f0| 20 20 20 20 20 20 20 c8 | 8e 20 6d 62 25 20 ca 0d |       .|. mb% ..|
|00001700| 00 32 5b 20 20 20 20 20 | 20 20 20 20 20 20 c9 20 |.2[     |      . |
|00001710| 31 3a 21 62 6c 6b 25 3d | 6f 70 74 69 6f 6e 73 5f |1:!blk%=|options_|
|00001720| 77 25 3a c8 99 22 57 69 | 6d 70 5f 47 65 74 57 69 |w%:.."Wi|mp_GetWi|
|00001730| 6e 64 6f 77 53 74 61 74 | 65 22 2c 2c 62 6c 6b 25 |ndowStat|e",,blk%|
|00001740| 3a c8 99 22 57 69 6d 70 | 5f 4f 70 65 6e 57 69 6e |:.."Wimp|_OpenWin|
|00001750| 64 6f 77 22 2c 2c 62 6c | 6b 25 0d 00 33 50 20 20 |dow",,bl|k%..3P  |
|00001760| 20 20 20 20 20 20 20 20 | 20 c9 20 32 3a 6d 78 25 |        | . 2:mx%|
|00001770| 3d 62 6c 6b 25 21 26 43 | 30 2d 31 32 30 3a 6d 68 |=blk%!&C|0-120:mh|
|00001780| 25 3d 32 35 36 3a c8 99 | 22 57 69 6d 70 5f 43 72 |%=256:..|"Wimp_Cr|
|00001790| 65 61 74 65 4d 65 6e 75 | 22 2c 2c 6d 61 69 6e 5f |eateMenu|",,main_|
|000017a0| 6d 25 2c 6d 78 25 2c 6d | 68 25 0d 00 34 0f 20 20 |m%,mx%,m|h%..4.  |
|000017b0| 20 20 20 20 20 20 20 20 | cb 0d 00 35 0e 20 20 20 |        |...5.   |
|000017c0| 20 20 20 20 20 20 cd 0d | 00 36 35 20 c9 20 72 65 |      ..|.65 . re|
|000017d0| 67 69 73 74 65 72 5f 77 | 25 3a e7 20 69 63 6e 25 |gister_w|%:. icn%|
|000017e0| 3d 30 20 f2 64 72 61 67 | 5f 66 69 6c 65 28 72 65 |=0 .drag|_file(re|
|000017f0| 67 69 73 74 65 72 5f 77 | 25 2c 30 29 0d 00 37 05 |gister_w|%,0)..7.|
|00001800| cb 0d 00 38 05 e1 0d 00 | 39 04 0d 00 3a 04 0d 00 |...8....|9...:...|
|00001810| 3b 36 f4 20 3d 3d 3d 3d | 3d 3d 20 46 69 6c 65 20 |;6. ====|== File |
|00001820| 69 63 6f 6e 20 64 72 61 | 67 20 61 6e 64 20 73 61 |icon dra|g and sa|
|00001830| 76 65 20 70 72 6f 63 65 | 64 75 72 65 73 20 3d 3d |ve proce|dures ==|
|00001840| 3d 3d 3d 3d 0d 00 3c 04 | 0d 00 3d 16 dd f2 64 72 |====..<.|..=...dr|
|00001850| 61 67 5f 66 69 6c 65 28 | 77 25 2c 69 25 29 0d 00 |ag_file(|w%,i%)..|
|00001860| 3e 2a 21 62 6c 6b 25 3d | 77 25 3a c8 99 22 57 69 |>*!blk%=|w%:.."Wi|
|00001870| 6d 70 5f 47 65 74 57 69 | 6e 64 6f 77 53 74 61 74 |mp_GetWi|ndowStat|
|00001880| 65 22 2c 2c 62 6c 6b 25 | 0d 00 3f 28 58 25 3d 62 |e",,blk%|..?(X%=b|
|00001890| 6c 6b 25 21 34 2d 62 6c | 6b 25 21 32 30 3a 59 25 |lk%!4-bl|k%!20:Y%|
|000018a0| 3d 62 6c 6b 25 21 31 36 | 2d 62 6c 6b 25 21 32 34 |=blk%!16|-blk%!24|
|000018b0| 0d 00 40 29 62 6c 6b 25 | 21 34 3d 69 25 3a c8 99 |..@)blk%|!4=i%:..|
|000018c0| 22 57 69 6d 70 5f 47 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Ge|tIconSta|
|000018d0| 74 65 22 2c 2c 62 6c 6b | 25 0d 00 41 39 21 62 6c |te",,blk|%..A9!bl|
|000018e0| 6b 25 3d 77 25 3a 62 6c | 6b 25 21 34 3d 35 3a 62 |k%=w%:bl|k%!4=5:b|
|000018f0| 6c 6b 25 21 38 3d 62 6c | 6b 25 21 38 2b 58 25 3a |lk%!8=bl|k%!8+X%:|
|00001900| 62 6c 6b 25 21 31 32 3d | 62 6c 6b 25 21 31 32 2b |blk%!12=|blk%!12+|
|00001910| 59 25 0d 00 42 3d 62 6c | 6b 25 21 31 36 3d 62 6c |Y%..B=bl|k%!16=bl|
|00001920| 6b 25 21 31 36 2b 58 25 | 3a 62 6c 6b 25 21 32 30 |k%!16+X%|:blk%!20|
|00001930| 3d 62 6c 6b 25 21 32 30 | 2b 59 25 3a 62 6c 6b 25 |=blk%!20|+Y%:blk%|
|00001940| 21 32 34 3d 30 3a 62 6c | 6b 25 21 32 38 3d 30 0d |!24=0:bl|k%!28=0.|
|00001950| 00 43 27 62 6c 6b 25 21 | 33 32 3d 26 37 46 46 46 |.C'blk%!|32=&7FFF|
|00001960| 46 46 46 46 3a 62 6c 6b | 25 21 33 36 3d 26 37 46 |FFFF:blk|%!36=&7F|
|00001970| 46 46 46 46 46 46 0d 00 | 44 1a c8 99 22 57 69 6d |FFFFFF..|D..."Wim|
|00001980| 70 5f 44 72 61 67 42 6f | 78 22 2c 2c 62 6c 6b 25 |p_DragBo|x",,blk%|
|00001990| 0d 00 45 05 e1 0d 00 46 | 04 0d 00 47 0f dd f2 64 |..E....F|...G...d|
|000019a0| 72 61 67 5f 74 65 72 6d | 0d 00 48 21 c8 99 22 57 |rag_term|..H!.."W|
|000019b0| 69 6d 70 5f 47 65 74 50 | 6f 69 6e 74 65 72 49 6e |imp_GetP|ointerIn|
|000019c0| 66 6f 22 2c 2c 62 6c 6b | 25 0d 00 49 40 62 6c 6b |fo",,blk|%..I@blk|
|000019d0| 25 21 32 30 3d 62 6c 6b | 25 21 31 32 3a 62 6c 6b |%!20=blk|%!12:blk|
|000019e0| 25 21 32 34 3d 62 6c 6b | 25 21 31 36 3a 62 6c 6b |%!24=blk|%!16:blk|
|000019f0| 25 21 32 38 3d 21 62 6c | 6b 25 3a 62 6c 6b 25 21 |%!28=!bl|k%:blk%!|
|00001a00| 33 32 3d 62 6c 6b 25 21 | 34 0d 00 4a 1b 62 6c 6b |32=blk%!|4..J.blk|
|00001a10| 25 21 33 36 3d 36 34 3a | 62 6c 6b 25 21 34 30 3d |%!36=64:|blk%!40=|
|00001a20| 26 46 46 44 0d 00 4b 23 | 62 6c 6b 25 21 31 36 3d |&FFD..K#|blk%!16=|
|00001a30| 31 3a 24 28 62 6c 6b 25 | 2b 34 34 29 3d 22 52 65 |1:$(blk%|+44)="Re|
|00001a40| 67 69 73 74 65 72 22 0d | 00 4c 29 21 62 6c 6b 25 |gister".|.L)!blk%|
|00001a50| 3d 28 a9 28 22 52 65 67 | 69 73 74 65 72 22 29 2b |=(.("Reg|ister")+|
|00001a60| 34 39 29 80 ac 33 3a 62 | 6c 6b 25 21 31 32 3d 30 |49)..3:b|lk%!12=0|
|00001a70| 0d 00 4d 30 c8 99 22 57 | 69 6d 70 5f 53 65 6e 64 |..M0.."W|imp_Send|
|00001a80| 4d 65 73 73 61 67 65 22 | 2c 31 37 2c 62 6c 6b 25 |Message"|,17,blk%|
|00001a90| 2c 62 6c 6b 25 21 32 30 | 2c 62 6c 6b 25 21 32 34 |,blk%!20|,blk%!24|
|00001aa0| 0d 00 4e 05 e1 0d 00 4f | 04 0d 00 50 3d f4 20 3d |..N....O|...P=. =|
|00001ab0| 3d 3d 3d 3d 3d 3d 20 41 | 73 73 6f 72 74 65 64 20 |====== A|ssorted |
|00001ac0| 57 69 6d 70 20 66 75 6e | 63 74 69 6f 6e 73 20 61 |Wimp fun|ctions a|
|00001ad0| 6e 64 20 70 72 6f 63 65 | 64 75 72 65 73 20 3d 3d |nd proce|dures ==|
|00001ae0| 3d 3d 3d 3d 3d 3d 0d 00 | 51 04 0d 00 52 16 dd f2 |======..|Q...R...|
|00001af0| 73 65 74 5f 63 61 72 65 | 74 28 77 25 2c 69 25 29 |set_care|t(w%,i%)|
|00001b00| 0d 00 53 1d 4c 25 3d a9 | 28 a4 69 63 6f 6e 5f 73 |..S.L%=.|(.icon_s|
|00001b10| 74 72 69 6e 67 28 77 25 | 2c 69 25 29 29 0d 00 54 |tring(w%|,i%))..T|
|00001b20| 2b c8 99 22 57 69 6d 70 | 5f 53 65 74 43 61 72 65 |+.."Wimp|_SetCare|
|00001b30| 74 50 6f 73 69 74 69 6f | 6e 22 2c 77 25 2c 69 25 |tPositio|n",w%,i%|
|00001b40| 2c 2c 2c 2d 31 2c 4c 25 | 0d 00 55 05 e1 0d 00 56 |,,,-1,L%|..U....V|
|00001b50| 04 0d 00 57 1d dd f2 75 | 70 64 61 74 65 5f 6e 75 |...W...u|pdate_nu|
|00001b60| 6d 62 65 72 28 77 25 2c | 69 25 2c 76 25 29 0d 00 |mber(w%,|i%,v%)..|
|00001b70| 58 35 21 62 6c 6b 32 25 | 3d 77 25 3a 62 6c 6b 32 |X5!blk2%|=w%:blk2|
|00001b80| 25 21 34 3d 69 25 3a c8 | 99 22 57 69 6d 70 5f 47 |%!4=i%:.|."Wimp_G|
|00001b90| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 62 6c |etIconSt|ate",,bl|
|00001ba0| 6b 32 25 0d 00 59 47 62 | 6c 6b 32 25 21 38 3d 30 |k2%..YGb|lk2%!8=0|
|00001bb0| 3a 62 6c 6b 32 25 21 31 | 32 3d 30 3a 24 28 62 6c |:blk2%!1|2=0:$(bl|
|00001bc0| 6b 32 25 21 32 38 29 3d | c3 28 76 25 29 3a c8 99 |k2%!28)=|.(v%):..|
|00001bd0| 22 57 69 6d 70 5f 53 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Se|tIconSta|
|00001be0| 74 65 22 2c 2c 62 6c 6b | 32 25 0d 00 5a 05 e1 0d |te",,blk|2%..Z...|
|00001bf0| 00 5b 04 0d 00 5c 1d dd | f2 75 70 64 61 74 65 5f |.[...\..|.update_|
|00001c00| 73 74 72 69 6e 67 28 77 | 25 2c 69 25 2c 73 24 29 |string(w|%,i%,s$)|
|00001c10| 0d 00 5d 35 21 62 6c 6b | 32 25 3d 77 25 3a 62 6c |..]5!blk|2%=w%:bl|
|00001c20| 6b 32 25 21 34 3d 69 25 | 3a c8 99 22 57 69 6d 70 |k2%!4=i%|:.."Wimp|
|00001c30| 5f 47 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_GetIcon|State",,|
|00001c40| 62 6c 6b 32 25 0d 00 5e | 44 62 6c 6b 32 25 21 38 |blk2%..^|Dblk2%!8|
|00001c50| 3d 30 3a 62 6c 6b 32 25 | 21 31 32 3d 30 3a 24 28 |=0:blk2%|!12=0:$(|
|00001c60| 62 6c 6b 32 25 21 32 38 | 29 3d 73 24 3a c8 99 22 |blk2%!28|)=s$:.."|
|00001c70| 57 69 6d 70 5f 53 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Set|IconStat|
|00001c80| 65 22 2c 2c 62 6c 6b 32 | 25 0d 00 5f 05 e1 0d 00 |e",,blk2|%.._....|
|00001c90| 60 04 0d 00 61 18 dd a4 | 69 63 6f 6e 5f 73 74 72 |`...a...|icon_str|
|00001ca0| 69 6e 67 28 77 25 2c 69 | 25 29 0d 00 62 35 21 62 |ing(w%,i|%)..b5!b|
|00001cb0| 6c 6b 32 25 3d 77 25 3a | 62 6c 6b 32 25 21 34 3d |lk2%=w%:|blk2%!4=|
|00001cc0| 69 25 3a c8 99 22 57 69 | 6d 70 5f 47 65 74 49 63 |i%:.."Wi|mp_GetIc|
|00001cd0| 6f 6e 53 74 61 74 65 22 | 2c 2c 62 6c 6b 32 25 0d |onState"|,,blk2%.|
|00001ce0| 00 63 2a 49 25 3d 28 62 | 6c 6b 32 25 21 32 38 29 |.c*I%=(b|lk2%!28)|
|00001cf0| 3a c8 95 20 3f 49 25 3e | 33 31 3a 49 25 2b 3d 31 |:.. ?I%>|31:I%+=1|
|00001d00| 3a ce 3a 3f 49 25 3d 31 | 33 0d 00 64 10 3d 24 28 |:.:?I%=1|3..d.=$(|
|00001d10| 62 6c 6b 32 25 21 32 38 | 29 0d 00 65 04 0d 00 66 |blk2%!28|)..e...f|
|00001d20| 0c dd f2 72 65 64 72 61 | 77 0d 00 67 35 21 62 6c |...redra|w..g5!bl|
|00001d30| 6b 32 25 3d 64 69 73 70 | 5f 77 25 3a c8 99 20 22 |k2%=disp|_w%:.. "|
|00001d40| 57 69 6d 70 5f 52 65 64 | 72 61 77 57 69 6e 64 6f |Wimp_Red|rawWindo|
|00001d50| 77 22 2c 2c 62 6c 6b 32 | 25 20 b8 20 4d 25 0d 00 |w",,blk2|% . M%..|
|00001d60| 68 2e c8 95 20 4d 25 3a | c8 99 20 22 57 69 6d 70 |h... M%:|.. "Wimp|
|00001d70| 5f 47 65 74 52 65 63 74 | 61 6e 67 6c 65 22 2c 2c |_GetRect|angle",,|
|00001d80| 62 6c 6b 32 25 20 b8 20 | 4d 25 3a ce 0d 00 69 05 |blk2% . |M%:...i.|
|00001d90| e1 0d 00 6a 04 0d 00 6b | 15 dd f2 73 65 74 63 61 |...j...k|...setca|
|00001da0| 72 65 74 28 77 25 2c 69 | 25 29 0d 00 6c 35 21 62 |ret(w%,i|%)..l5!b|
|00001db0| 6c 6b 32 25 3d 77 25 3a | 62 6c 6b 32 25 21 34 3d |lk2%=w%:|blk2%!4=|
|00001dc0| 69 25 3a c8 99 22 57 69 | 6d 70 5f 47 65 74 49 63 |i%:.."Wi|mp_GetIc|
|00001dd0| 6f 6e 53 74 61 74 65 22 | 2c 2c 62 6c 6b 32 25 0d |onState"|,,blk2%.|
|00001de0| 00 6d 35 c8 99 22 57 69 | 6d 70 5f 53 65 74 43 61 |.m5.."Wi|mp_SetCa|
|00001df0| 72 65 74 50 6f 73 69 74 | 69 6f 6e 22 2c 77 25 2c |retPosit|ion",w%,|
|00001e00| 69 25 2c 2c 2c 2d 31 2c | a9 24 28 62 6c 6b 32 25 |i%,,,-1,|.$(blk2%|
|00001e10| 21 32 38 29 0d 00 6e 05 | e1 0d 00 6f 04 0d 00 70 |!28)..n.|...o...p|
|00001e20| 1a dd a4 67 65 74 5f 6f | 70 74 5f 73 74 61 74 65 |...get_o|pt_state|
|00001e30| 28 77 25 2c 69 25 29 0d | 00 71 18 21 62 6c 6b 32 |(w%,i%).|.q.!blk2|
|00001e40| 25 3d 77 25 3a 62 6c 6b | 32 25 21 34 3d 69 25 0d |%=w%:blk|2%!4=i%.|
|00001e50| 00 72 21 c8 99 20 22 57 | 69 6d 70 5f 47 65 74 49 |.r!.. "W|imp_GetI|
|00001e60| 63 6f 6e 53 74 61 74 65 | 22 2c 2c 62 6c 6b 32 25 |conState|",,blk2%|
|00001e70| 0d 00 73 1e e7 20 28 62 | 6c 6b 32 25 21 32 34 80 |..s.. (b|lk2%!24.|
|00001e80| 31 3c 3c 32 31 29 3a 3d | b9 3a 8b 3a 3d a3 0d 00 |1<<21):=|.:.:=...|
|00001e90| 74 04 0d 00 75 13 dd a4 | 74 69 63 6b 65 64 28 6d |t...u...|ticked(m|
|00001ea0| 25 2c 69 25 29 0d 00 76 | 24 e7 20 28 21 28 6d 25 |%,i%)..v|$. (!(m%|
|00001eb0| 2b 32 38 2b 28 32 34 2a | 69 25 29 29 29 80 31 3d |+28+(24*|i%))).1=|
|00001ec0| 31 3a 3d b9 3a 8b 3a 3d | a3 0d 00 77 04 0d 00 78 |1:=.:.:=|...w...x|
|00001ed0| 10 dd a4 77 6b 73 70 63 | 28 73 7a 25 29 0d 00 79 |...wkspc|(sz%)..y|
|00001ee0| 08 ea 20 65 25 0d 00 7a | 28 c8 99 22 57 69 6d 70 |.. e%..z|(.."Wimp|
|00001ef0| 5f 53 6c 6f 74 53 69 7a | 65 22 2c 6d 65 6d 73 7a |_SlotSiz|e",memsz|
|00001f00| 25 2b 73 7a 25 2c 2d 31 | 20 b8 20 65 25 0d 00 7b |%+sz%,-1| . e%..{|
|00001f10| 1d e7 20 65 25 3c 28 6d | 65 6d 73 7a 25 2b 73 7a |.. e%<(m|emsz%+sz|
|00001f20| 25 29 3a 3d a3 3a 8b 3a | 3d b9 0d 00 7c 04 0d 00 |%):=.:.:|=...|...|
|00001f30| 7d 04 0d 00 7e 29 dd a4 | 6e 65 77 5f 6d 65 6e 75 |}...~)..|new_menu|
|00001f40| 20 28 61 25 2c 6d 65 6e | 75 74 69 74 6c 65 24 2c | (a%,men|utitle$,|
|00001f50| 6d 65 6e 75 77 69 64 74 | 68 25 29 0d 00 7f 41 24 |menuwidt|h%)...A$|
|00001f60| 61 25 3d 6d 65 6e 75 74 | 69 74 6c 65 24 3a 61 25 |a%=menut|itle$:a%|
|00001f70| 21 31 32 3d 26 37 30 32 | 30 37 3a 61 25 21 31 36 |!12=&702|07:a%!16|
|00001f80| 3d 6d 65 6e 75 77 69 64 | 74 68 25 3a 61 25 21 32 |=menuwid|th%:a%!2|
|00001f90| 30 3d 34 30 3a 61 25 21 | 32 34 3d 30 0d 00 80 0c |0=40:a%!|24=0....|
|00001fa0| 6d 25 3d 61 25 2b 32 38 | 0d 00 81 07 3d 61 25 0d |m%=a%+28|....=a%.|
|00001fb0| 00 82 04 0d 00 83 2f dd | a4 6d 65 6e 75 5f 69 74 |....../.|.menu_it|
|00001fc0| 65 6d 20 28 69 74 65 6d | 6e 61 6d 65 24 2c 6d 65 |em (item|name$,me|
|00001fd0| 6e 75 66 6c 61 67 73 25 | 2c 73 75 62 6d 65 6e 75 |nuflags%|,submenu|
|00001fe0| 25 29 0d 00 84 41 21 6d | 25 3d 6d 65 6e 75 66 6c |%)...A!m|%=menufl|
|00001ff0| 61 67 73 25 3a 6d 25 21 | 34 3d 73 75 62 6d 65 6e |ags%:m%!|4=submen|
|00002000| 75 25 3a 6d 25 21 38 3d | 26 37 30 30 30 30 30 31 |u%:m%!8=|&7000001|
|00002010| 3a 24 28 6d 25 2b 31 32 | 29 3d 69 74 65 6d 6e 61 |:$(m%+12|)=itemna|
|00002020| 6d 65 24 0d 00 85 0a 3d | 6d 25 2b 32 34 0d 00 86 |me$....=|m%+24...|
|00002030| 04 0d 00 87 25 dd a4 69 | 6e 64 69 72 65 63 74 20 |....%..i|ndirect |
|00002040| 28 69 6e 64 69 72 24 2c | 66 6c 61 67 73 25 2c 69 |(indir$,|flags%,i|
|00002050| 6e 64 69 72 25 29 0d 00 | 88 43 21 6d 25 3d 66 6c |ndir%)..|.C!m%=fl|
|00002060| 61 67 73 25 3a 6d 25 21 | 34 3d 30 3a 6d 25 21 38 |ags%:m%!|4=0:m%!8|
|00002070| 3d 26 37 30 30 30 31 30 | 31 3a 6d 25 21 31 32 3d |=&700010|1:m%!12=|
|00002080| 69 6e 64 69 72 25 3a 6d | 25 21 31 36 3d 2d 31 3a |indir%:m|%!16=-1:|
|00002090| 6d 25 21 32 30 3d 31 32 | 37 0d 00 89 21 e7 20 69 |m%!20=12|7...!. i|
|000020a0| 6e 64 69 72 24 20 3c 3e | 22 3f 22 20 24 69 6e 64 |ndir$ <>|"?" $ind|
|000020b0| 69 72 25 3d 69 6e 64 69 | 72 24 0d 00 8a 0a 3d 6d |ir%=indi|r$....=m|
|000020c0| 25 2b 32 34 0d 00 8b 04 | 0d 00 8c 13 dd f2 73 68 |%+24....|......sh|
|000020d0| 61 64 65 20 28 6d 25 2c | 69 25 29 0d 00 8d 2c 21 |ade (m%,|i%)...,!|
|000020e0| 28 6d 25 2b 33 36 2b 28 | 32 34 2a 69 25 29 29 3d |(m%+36+(|24*i%))=|
|000020f0| 21 28 6d 25 2b 33 36 2b | 28 32 34 2a 69 25 29 29 |!(m%+36+|(24*i%))|
|00002100| 84 20 31 3c 3c 32 32 0d | 00 8e 05 e1 0d 00 8f 04 |. 1<<22.|........|
|00002110| 0d 00 90 15 dd f2 75 6e | 73 68 61 64 65 20 28 6d |......un|shade (m|
|00002120| 25 2c 69 25 29 0d 00 91 | 30 21 28 6d 25 2b 33 36 |%,i%)...|0!(m%+36|
|00002130| 2b 28 32 34 2a 69 25 29 | 29 3d 21 28 6d 25 2b 33 |+(24*i%)|)=!(m%+3|
|00002140| 36 2b 28 32 34 2a 69 25 | 29 29 80 20 ac 20 28 31 |6+(24*i%|)). . (1|
|00002150| 3c 3c 32 32 29 0d 00 92 | 05 e1 0d 00 93 04 0d 00 |<<22)...|........|
|00002160| 94 1c dd a4 69 63 6f 6e | 62 61 72 20 28 73 70 72 |....icon|bar (spr|
|00002170| 69 74 65 24 2c 70 6f 73 | 25 29 0d 00 95 2c 21 62 |ite$,pos|%)...,!b|
|00002180| 6c 6b 25 3d 70 6f 73 25 | 3a 62 6c 6b 25 21 34 3d |lk%=pos%|:blk%!4=|
|00002190| 2d 38 3a 62 6c 6b 25 21 | 38 3d 38 3a 62 6c 6b 25 |-8:blk%!|8=8:blk%|
|000021a0| 21 31 32 3d 35 36 0d 00 | 96 33 62 6c 6b 25 21 31 |!12=56..|.3blk%!1|
|000021b0| 36 3d 39 36 3a 62 6c 6b | 25 21 32 30 3d 26 32 30 |6=96:blk|%!20=&20|
|000021c0| 30 32 3a 24 28 62 6c 6b | 25 2b 32 34 29 3d 22 21 |02:$(blk|%+24)="!|
|000021d0| 22 2b 73 70 72 69 74 65 | 24 0d 00 97 23 c8 99 20 |"+sprite|$...#.. |
|000021e0| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 49 63 6f 6e |"Wimp_Cr|eateIcon|
|000021f0| 22 2c 2c 62 6c 6b 25 20 | b8 20 49 25 0d 00 98 07 |",,blk% |. I%....|
|00002200| 3d 49 25 0d 00 99 04 0d | 00 9a 1f dd f2 72 65 70 |=I%.....|.....rep|
|00002210| 6f 72 74 5f 65 72 72 6f | 72 28 65 72 72 24 2c 66 |ort_erro|r(err$,f|
|00002220| 61 74 61 6c 25 29 0d 00 | 9b 22 c8 99 22 48 6f 75 |atal%)..|.".."Hou|
|00002230| 72 67 6c 61 73 73 5f 53 | 6d 61 73 68 22 3a 6d 61 |rglass_S|mash":ma|
|00002240| 73 6b 25 3d 26 43 33 31 | 0d 00 9c 33 21 62 6c 6b |sk%=&C31|...3!blk|
|00002250| 32 25 3d 9f 3a 24 28 62 | 6c 6b 32 25 2b 34 29 3d |2%=.:$(b|lk2%+4)=|
|00002260| 22 45 72 72 6f 72 20 22 | 2b c3 28 9e 29 2b 22 3a |"Error "|+.(.)+":|
|00002270| 20 22 2b 65 72 72 24 2b | 2b bd 30 0d 00 9d 28 c8 | "+err$+|+.0...(.|
|00002280| 99 20 22 57 69 6d 70 5f | 52 65 70 6f 72 74 45 72 |. "Wimp_|ReportEr|
|00002290| 72 6f 72 22 2c 62 6c 6b | 32 25 2c 31 2c 74 69 74 |ror",blk|2%,1,tit|
|000022a0| 6c 65 25 0d 00 9e 11 e7 | 20 66 61 74 61 6c 25 20 |le%.....| fatal% |
|000022b0| f2 64 69 65 0d 00 9f 05 | e1 0d 00 a0 04 0d 00 a1 |.die....|........|
|000022c0| 09 dd f2 64 69 65 0d 00 | a2 07 ee 85 87 0d 00 a3 |...die..|........|
|000022d0| 2d c8 99 20 22 57 69 6d | 70 5f 43 6c 6f 73 65 44 |-.. "Wim|p_CloseD|
|000022e0| 6f 77 6e 22 2c 74 61 73 | 6b 68 61 6e 64 6c 65 25 |own",tas|khandle%|
|000022f0| 2c 26 34 42 35 33 34 31 | 35 34 0d 00 a4 05 e0 0d |,&4B5341|54......|
|00002300| 00 a5 04 0d 00 a6 13 dd | a4 61 6c 65 72 74 28 6f |........|.alert(o|
|00002310| 70 25 2c 61 24 29 0d 00 | a7 24 62 6c 6b 32 25 21 |p%,a$)..|.$blk2%!|
|00002320| 26 38 30 3d 30 3a 24 28 | 62 6c 6b 32 25 2b 26 38 |&80=0:$(|blk2%+&8|
|00002330| 34 29 3d 61 24 2b bd 28 | 30 29 0d 00 a8 36 c8 99 |4)=a$+.(|0)...6..|
|00002340| 22 57 69 6d 70 5f 52 65 | 70 6f 72 74 45 72 72 6f |"Wimp_Re|portErro|
|00002350| 72 22 2c 62 6c 6b 32 25 | 2b 26 38 30 2c 31 36 84 |r",blk2%|+&80,16.|
|00002360| 6f 70 25 2c 74 69 74 6c | 65 25 20 b8 20 2c 49 25 |op%,titl|e% . ,I%|
|00002370| 0d 00 a9 07 3d 49 25 0d | 00 aa 04 0d 00 ab 2f f4 |....=I%.|....../.|
|00002380| 20 3d 3d 3d 3d 3d 3d 3d | 3d 20 49 6e 69 74 69 61 | =======|= Initia|
|00002390| 6c 69 73 61 74 69 6f 6e | 20 72 6f 75 74 69 6e 65 |lisation| routine|
|000023a0| 73 20 3d 3d 3d 3d 3d 3d | 3d 3d 0d 00 ac 04 0d 00 |s ======|==......|
|000023b0| ad 0f dd f2 6d 61 69 6e | 5f 6d 65 6e 75 0d 00 ae |....main|_menu...|
|000023c0| 1d ea 20 6c 69 6e 65 2c | 74 69 63 6b 2c 6c 61 73 |.. line,|tick,las|
|000023d0| 74 2c 77 72 69 74 65 2c | 6d 25 0d 00 af 22 74 69 |t,write,|m%..."ti|
|000023e0| 63 6b 3d 31 3a 6c 69 6e | 65 3d 32 3a 77 72 69 74 |ck=1:lin|e=2:writ|
|000023f0| 65 3d 34 3a 6c 61 73 74 | 3d 26 38 30 0d 00 b0 14 |e=4:last|=&80....|
|00002400| de 20 6d 65 6e 75 62 75 | 66 66 25 20 26 32 30 30 |. menubu|ff% &200|
|00002410| 0d 00 b1 10 6d 25 3d 6d | 65 6e 75 62 75 66 66 25 |....m%=m|enubuff%|
|00002420| 0d 00 b2 26 6d 61 69 6e | 5f 6d 25 3d a4 6e 65 77 |...&main|_m%=.new|
|00002430| 5f 6d 65 6e 75 28 6d 25 | 2c 22 42 61 6e 6e 65 72 |_menu(m%|,"Banner|
|00002440| 22 2c 31 38 30 29 0d 00 | b3 23 6d 25 3d a4 6d 65 |",180)..|.#m%=.me|
|00002450| 6e 75 5f 69 74 65 6d 28 | 22 49 6e 66 6f 22 2c 30 |nu_item(|"Info",0|
|00002460| 2c 69 6e 66 6f 5f 77 25 | 29 0d 00 b4 2e 6d 25 3d |,info_w%|)....m%=|
|00002470| a4 6d 65 6e 75 5f 69 74 | 65 6d 28 22 52 65 67 69 |.menu_it|em("Regi|
|00002480| 73 74 65 72 22 2c 6c 69 | 6e 65 2c 72 65 67 69 73 |ster",li|ne,regis|
|00002490| 74 65 72 5f 77 25 29 0d | 00 b5 20 6d 25 3d a4 6d |ter_w%).|.. m%=.m|
|000024a0| 65 6e 75 5f 69 74 65 6d | 28 22 51 75 69 74 22 2c |enu_item|("Quit",|
|000024b0| 6c 61 73 74 2c 30 29 0d | 00 b6 05 e1 0d 00 b7 1a |last,0).|........|
|000024c0| dd f2 74 65 6d 70 6c 61 | 74 65 73 20 28 69 6e 64 |..templa|tes (ind|
|000024d0| 69 72 73 7a 25 29 0d 00 | b8 35 de 20 69 6e 64 69 |irsz%)..|.5. indi|
|000024e0| 72 25 20 69 6e 64 69 72 | 73 7a 25 2c 20 66 5f 73 |r% indir|sz%, f_s|
|000024f0| 70 63 25 20 26 31 30 30 | 3a 45 25 3d 69 6e 64 69 |pc% &100|:E%=indi|
|00002500| 72 25 2b 69 6e 64 69 72 | 73 7a 25 0d 00 b9 31 c8 |r%+indir|sz%...1.|
|00002510| 99 20 22 57 69 6d 70 5f | 4f 70 65 6e 54 65 6d 70 |. "Wimp_|OpenTemp|
|00002520| 6c 61 74 65 22 2c 2c 61 | 70 70 5f 64 69 72 24 2b |late",,a|pp_dir$+|
|00002530| 22 2e 74 65 6d 70 6c 61 | 74 65 73 22 0d 00 ba 40 |".templa|tes"...@|
|00002540| c8 99 20 22 57 69 6d 70 | 5f 4c 6f 61 64 54 65 6d |.. "Wimp|_LoadTem|
|00002550| 70 6c 61 74 65 22 2c 2c | 62 75 66 66 65 72 25 2c |plate",,|buffer%,|
|00002560| 69 6e 64 69 72 25 2c 45 | 25 2c 2d 31 2c 22 69 6e |indir%,E|%,-1,"in|
|00002570| 66 6f 22 2c 30 20 b8 20 | 2c 2c 52 25 0d 00 bb 2d |fo",0 . |,,R%...-|
|00002580| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 57 |.. "Wimp|_CreateW|
|00002590| 69 6e 64 6f 77 22 2c 2c | 62 75 66 66 65 72 25 20 |indow",,|buffer% |
|000025a0| b8 20 69 6e 66 6f 5f 77 | 25 0d 00 bc 40 c8 99 20 |. info_w|%...@.. |
|000025b0| 22 57 69 6d 70 5f 4c 6f | 61 64 54 65 6d 70 6c 61 |"Wimp_Lo|adTempla|
|000025c0| 74 65 22 2c 2c 62 75 66 | 66 65 72 25 2c 52 25 2c |te",,buf|fer%,R%,|
|000025d0| 45 25 2c 2d 31 2c 22 72 | 65 67 69 73 74 65 72 22 |E%,-1,"r|egister"|
|000025e0| 2c 30 20 b8 20 2c 2c 52 | 25 0d 00 bd 31 c8 99 20 |,0 . ,,R|%...1.. |
|000025f0| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|00002600| 6f 77 22 2c 2c 62 75 66 | 66 65 72 25 20 b8 20 72 |ow",,buf|fer% . r|
|00002610| 65 67 69 73 74 65 72 5f | 77 25 0d 00 be 42 c8 99 |egister_|w%...B..|
|00002620| 20 22 57 69 6d 70 5f 4c | 6f 61 64 54 65 6d 70 6c | "Wimp_L|oadTempl|
|00002630| 61 74 65 22 2c 2c 62 75 | 66 66 65 72 25 2c 52 25 |ate",,bu|ffer%,R%|
|00002640| 2c 45 25 2c 66 5f 73 70 | 63 25 2c 22 62 61 6e 6e |,E%,f_sp|c%,"bann|
|00002650| 65 72 22 2c 30 20 b8 20 | 2c 2c 52 25 0d 00 bf 2f |er",0 . |,,R%.../|
|00002660| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 57 |.. "Wimp|_CreateW|
|00002670| 69 6e 64 6f 77 22 2c 2c | 62 75 66 66 65 72 25 20 |indow",,|buffer% |
|00002680| b8 20 62 61 6e 6e 65 72 | 5f 77 25 0d 00 c0 1b c8 |. banner|_w%.....|
|00002690| 99 20 22 57 69 6d 70 5f | 43 6c 6f 73 65 54 65 6d |. "Wimp_|CloseTem|
|000026a0| 70 6c 61 74 65 22 0d 00 | c1 4b 21 62 6c 6b 25 3d |plate"..|.K!blk%=|
|000026b0| 69 6e 66 6f 5f 77 25 3a | 62 6c 6b 25 21 34 3d 31 |info_w%:|blk%!4=1|
|000026c0| 3a c8 99 20 22 57 69 6d | 70 5f 47 65 74 49 63 6f |:.. "Wim|p_GetIco|
|000026d0| 6e 53 74 61 74 65 22 2c | 2c 62 6c 6b 25 3a 24 28 |nState",|,blk%:$(|
|000026e0| 62 6c 6b 25 21 32 38 29 | 3d 70 72 6f 67 72 61 6d |blk%!28)|=program|
|000026f0| 24 0d 00 c2 4b 21 62 6c | 6b 25 3d 69 6e 66 6f 5f |$...K!bl|k%=info_|
|00002700| 77 25 3a 62 6c 6b 25 21 | 34 3d 32 3a c8 99 20 22 |w%:blk%!|4=2:.. "|
|00002710| 57 69 6d 70 5f 47 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Get|IconStat|
|00002720| 65 22 2c 2c 62 6c 6b 25 | 3a 24 28 62 6c 6b 25 21 |e",,blk%|:$(blk%!|
|00002730| 32 38 29 3d 76 65 72 73 | 69 6f 6e 24 0d 00 c3 48 |28)=vers|ion$...H|
|00002740| 21 62 6c 6b 25 3d 69 6e | 66 6f 5f 77 25 3a 62 6c |!blk%=in|fo_w%:bl|
|00002750| 6b 25 21 34 3d 33 3a c8 | 99 20 22 57 69 6d 70 5f |k%!4=3:.|. "Wimp_|
|00002760| 47 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 62 |GetIconS|tate",,b|
|00002770| 6c 6b 25 3a 24 28 62 6c | 6b 25 21 32 38 29 3d 63 |lk%:$(bl|k%!28)=c|
|00002780| 70 72 74 24 0d 00 c4 05 | e1 0d 00 c5 04 0d 00 c6 |prt$....|........|
|00002790| 10 dd f2 69 6e 69 74 69 | 61 6c 69 73 65 0d 00 c7 |...initi|alise...|
|000027a0| 41 c8 99 20 22 57 69 6d | 70 5f 49 6e 69 74 69 61 |A.. "Wim|p_Initia|
|000027b0| 6c 69 73 65 22 2c 32 30 | 30 2c 26 34 42 35 33 34 |lise",20|0,&4B534|
|000027c0| 31 35 34 2c 22 42 61 6e | 6e 65 72 22 20 b8 20 72 |154,"Ban|ner" . r|
|000027d0| 6f 25 2c 74 61 73 6b 68 | 61 6e 64 6c 65 25 0d 00 |o%,taskh|andle%..|
|000027e0| c8 41 e7 20 72 6f 25 3c | 33 30 30 20 85 20 a2 20 |.A. ro%<|300 . . |
|000027f0| 30 2c 22 54 68 69 73 20 | 70 72 6f 67 72 61 6d 20 |0,"This |program |
|00002800| 72 65 71 75 69 72 65 73 | 20 52 49 53 43 2d 4f 53 |requires| RISC-OS|
|00002810| 20 33 20 6f 72 20 62 65 | 74 74 65 72 22 3a e0 0d | 3 or be|tter":..|
|00002820| 00 c9 35 de 20 62 6c 6b | 25 20 26 31 38 30 2c 20 |..5. blk|% &180, |
|00002830| 62 6c 6b 32 25 20 26 31 | 30 30 2c 20 74 69 74 6c |blk2% &1|00, titl|
|00002840| 65 25 20 32 34 2c 20 62 | 75 66 66 65 72 25 20 26 |e% 24, b|uffer% &|
|00002850| 31 30 30 30 0d 00 ca 19 | 24 74 69 74 6c 65 25 3d |1000....|$title%=|
|00002860| 22 42 61 6e 6e 65 72 20 | 44 65 6d 6f 22 0d 00 cb |"Banner |Demo"...|
|00002870| 38 ea 20 85 3a ee 85 ea | 20 f2 72 65 70 6f 72 74 |8. .:...| .report|
|00002880| 5f 65 72 72 6f 72 28 f6 | 24 2b 22 20 44 75 72 69 |_error(.|$+" Duri|
|00002890| 6e 67 20 69 6e 69 74 69 | 61 6c 69 73 61 74 69 6f |ng initi|alisatio|
|000028a0| 6e 22 2c b9 29 0d 00 cc | 35 c8 99 20 22 4f 53 5f |n",.)...|5.. "OS_|
|000028b0| 52 65 61 64 56 61 72 56 | 61 6c 22 2c 22 4f 62 65 |ReadVarV|al","Obe|
|000028c0| 79 24 44 69 72 22 2c 62 | 6c 6b 25 2c 32 35 36 2c |y$Dir",b|lk%,256,|
|000028d0| 30 2c 33 20 b8 20 2c 2c | 49 25 0d 00 cd 1d 62 6c |0,3 . ,,|I%....bl|
|000028e0| 6b 25 3f 49 25 3d 31 33 | 3a 61 70 70 5f 64 69 72 |k%?I%=13|:app_dir|
|000028f0| 24 3d 24 62 6c 6b 25 0d | 00 ce 0b f2 64 65 66 69 |$=$blk%.|....defi|
|00002900| 6e 65 0d 00 cf 14 f2 74 | 65 6d 70 6c 61 74 65 73 |ne.....t|emplates|
|00002910| 28 26 34 30 30 29 0d 00 | d0 34 c8 99 22 4f 53 5f |(&400)..|.4.."OS_|
|00002920| 46 69 6c 65 22 2c 31 37 | 2c 61 70 70 5f 64 69 72 |File",17|,app_dir|
|00002930| 24 2b 22 2e 72 65 67 69 | 73 74 65 72 22 20 b8 20 |$+".regi|ster" . |
|00002940| 46 25 2c 2c 2c 2c 6c 65 | 6e 25 0d 00 d1 1f e7 20 |F%,,,,le|n%..... |
|00002950| 46 25 3d 31 20 f2 75 73 | 65 72 5f 6e 61 6d 65 20 |F%=1 .us|er_name |
|00002960| 8b 20 f2 62 61 6e 6e 65 | 72 0d 00 d2 1f 69 63 6f |. .banne|r....ico|
|00002970| 6e 25 3d a4 69 63 6f 6e | 62 61 72 28 22 62 61 6e |n%=.icon|bar("ban|
|00002980| 6e 65 72 22 2c 2d 31 29 | 0d 00 d3 0e f2 6d 61 69 |ner",-1)|.....mai|
|00002990| 6e 5f 6d 65 6e 75 0d 00 | d4 05 e1 0d 00 d5 04 0d |n_menu..|........|
|000029a0| 00 d6 0c dd f2 64 65 66 | 69 6e 65 0d 00 d7 1a 70 |.....def|ine....p|
|000029b0| 72 6f 67 72 61 6d 24 3d | 22 42 61 6e 6e 65 72 20 |rogram$=|"Banner |
|000029c0| 44 65 6d 6f 22 0d 00 d8 | 27 76 65 72 73 69 6f 6e |Demo"...|'version|
|000029d0| 24 3d 22 56 65 72 73 69 | 6f 6e 20 22 2b 76 65 72 |$="Versi|on "+ver|
|000029e0| 73 69 6f 6e 5f 6e 75 6d | 62 65 72 24 0d 00 d9 1f |sion_num|ber$....|
|000029f0| 63 70 72 74 24 3d 22 a9 | 20 44 61 76 69 64 20 48 |cprt$=".| David H|
|00002a00| 6f 6c 64 65 6e 20 31 39 | 39 35 22 0d 00 da 17 6d |olden 19|95"....m|
|00002a10| 61 73 6b 25 3d 25 31 31 | 30 30 30 30 31 31 30 30 |ask%=%11|00001100|
|00002a20| 30 31 0d 00 db 05 e1 0d | 00 dc 04 0d 00 dd 04 0d |01......|........|
|00002a30| 00 de 4e 20 20 20 20 20 | 2d 2d 2d 2d 2d 2d 2d 2d |..N     |--------|
|00002a40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 00 df |--------|-----...|
|00002a80| 4f 20 20 20 20 7c 20 54 | 68 69 73 20 69 73 20 74 |O    | T|his is t|
|00002a90| 68 65 20 70 72 6f 63 65 | 64 75 72 65 20 74 68 61 |he proce|dure tha|
|00002aa0| 74 20 6c 6f 61 64 73 20 | 74 68 65 20 52 65 67 69 |t loads |the Regi|
|00002ab0| 73 74 65 72 20 66 69 6c | 65 2c 20 74 72 69 65 73 |ster fil|e, tries|
|00002ac0| 20 74 6f 20 64 65 63 6f | 64 65 20 7c 0d 00 e0 4f | to deco|de |...O|
|00002ad0| 20 20 20 20 7c 20 69 74 | 2c 20 61 6e 64 20 70 75 |    | it|, and pu|
|00002ae0| 74 73 20 74 68 65 20 75 | 73 65 72 27 73 20 6e 61 |ts the u|ser's na|
|00002af0| 6d 65 20 69 6e 20 74 68 | 65 20 27 49 6e 66 6f 27 |me in th|e 'Info'|
|00002b00| 20 77 69 6e 64 6f 77 2e | 20 49 66 20 74 68 65 20 | window.| If the |
|00002b10| 63 68 65 63 6b 73 75 6d | 20 20 7c 0d 00 e1 4f 20 |checksum|  |...O |
|00002b20| 20 20 20 7c 20 64 6f 65 | 73 6e 27 74 20 74 61 6c |   | doe|sn't tal|
|00002b30| 6c 79 20 69 74 20 70 75 | 74 73 20 75 70 20 61 6e |ly it pu|ts up an|
|00002b40| 20 65 72 72 6f 72 20 6d | 65 73 73 61 67 65 20 61 | error m|essage a|
|00002b50| 6e 64 20 61 62 6f 72 74 | 73 20 74 68 65 20 70 72 |nd abort|s the pr|
|00002b60| 6f 67 72 61 6d 20 20 20 | 20 7c 0d 00 e2 4e 20 20 |ogram   | |...N  |
|00002b70| 20 20 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |   -----|--------|
|00002b80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ba0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002bb0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 00 e3 0f dd f2 75 73 |--------|......us|
|00002bc0| 65 72 5f 6e 61 6d 65 0d | 00 e4 29 ea 20 63 68 65 |er_name.|..). che|
|00002bd0| 63 6b 73 75 6d 25 2c 20 | 70 74 72 25 2c 20 63 68 |cksum%, |ptr%, ch|
|00002be0| 61 72 25 2c 20 65 6f 72 | 25 2c 20 6e 61 6d 65 24 |ar%, eor|%, name$|
|00002bf0| 0d 00 e5 04 0d 00 e6 36 | 20 20 20 20 20 20 20 20 |.......6|        |
|00002c00| f4 2d 2d 20 6c 6f 61 64 | 20 74 68 65 20 27 72 65 |.-- load| the 're|
|00002c10| 67 69 73 74 65 72 27 20 | 66 69 6c 65 20 69 6e 74 |gister' |file int|
|00002c20| 6f 20 61 20 62 75 66 66 | 65 72 0d 00 e7 31 c8 99 |o a buff|er...1..|
|00002c30| 22 4f 53 5f 46 69 6c 65 | 22 2c 31 36 2c 61 70 70 |"OS_File|",16,app|
|00002c40| 5f 64 69 72 24 2b 22 2e | 72 65 67 69 73 74 65 72 |_dir$+".|register|
|00002c50| 22 2c 62 75 66 66 65 72 | 25 2c 30 0d 00 e8 04 0d |",buffer|%,0.....|
|00002c60| 00 e9 34 63 68 65 63 6b | 73 75 6d 25 3d 30 20 20 |..4check|sum%=0  |
|00002c70| 20 20 20 3a f4 20 5a 65 | 72 6f 20 63 68 65 63 6b |   :. Ze|ro check|
|00002c80| 73 75 6d 20 72 65 61 64 | 79 20 74 6f 20 63 6f 75 |sum read|y to cou|
|00002c90| 6e 74 20 0d 00 ea 2b 65 | 6f 72 25 3d 37 20 20 20 |nt ...+e|or%=7   |
|00002ca0| 20 20 20 20 20 20 20 3a | f4 20 53 65 74 20 75 70 |       :|. Set up|
|00002cb0| 20 74 68 65 20 45 4f 52 | 20 76 61 6c 75 65 0d 00 | the EOR| value..|
|00002cc0| eb 32 6e 61 6d 65 24 3d | 22 22 20 20 20 20 20 20 |.2name$=|""      |
|00002cd0| 20 20 3a f4 20 4d 61 6b | 65 20 73 75 72 65 20 74 |  :. Mak|e sure t|
|00002ce0| 68 65 20 6e 61 6d 65 20 | 69 73 20 62 6c 61 6e 6b |he name |is blank|
|00002cf0| 0d 00 ec 38 70 74 72 25 | 3d 34 20 20 20 20 20 20 |...8ptr%|=4      |
|00002d00| 20 20 20 20 3a f4 20 50 | 6f 69 6e 74 20 70 61 73 |    :. P|oint pas|
|00002d10| 74 20 63 68 65 63 6b 73 | 75 6d 20 77 6f 72 64 20 |t checks|um word |
|00002d20| 61 74 20 73 74 61 72 74 | 0d 00 ed 04 0d 00 ee 23 |at start|.......#|
|00002d30| 20 20 20 20 20 20 20 20 | f4 2d 2d 20 4e 6f 77 20 |        |.-- Now |
|00002d40| 64 65 63 6f 64 65 20 74 | 68 65 20 6e 61 6d 65 0d |decode t|he name.|
|00002d50| 00 ef 05 f5 0d 00 f0 4e | 20 63 68 61 72 25 3d 28 |.......N| char%=(|
|00002d60| 62 75 66 66 65 72 25 3f | 70 74 72 25 29 20 82 20 |buffer%?|ptr%) . |
|00002d70| 65 6f 72 25 20 20 20 20 | 20 20 20 20 20 20 3a f4 |eor%    |      :.|
|00002d80| 20 47 65 74 20 74 68 65 | 20 6e 65 78 74 20 63 68 | Get the| next ch|
|00002d90| 61 72 61 63 74 65 72 20 | 61 6e 64 20 45 4f 52 20 |aracter |and EOR |
|00002da0| 69 74 0d 00 f1 45 20 63 | 68 65 63 6b 73 75 6d 25 |it...E c|hecksum%|
|00002db0| 2b 3d 63 68 61 72 25 20 | 20 20 20 20 20 20 20 20 |+=char% |        |
|00002dc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a f4 |        |      :.|
|00002dd0| 20 41 64 64 20 69 74 20 | 74 6f 20 74 68 65 20 63 | Add it |to the c|
|00002de0| 68 65 63 6b 73 75 6d 0d | 00 f2 3e 20 6e 61 6d 65 |hecksum.|..> name|
|00002df0| 24 3d 6e 61 6d 65 24 2b | bd 28 63 68 61 72 25 29 |$=name$+|.(char%)|
|00002e00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002e10| 3a f4 20 41 64 64 20 69 | 74 20 74 6f 20 74 68 65 |:. Add i|t to the|
|00002e20| 20 6e 61 6d 65 0d 00 f3 | 3f 20 70 74 72 25 2b 3d | name...|? ptr%+=|
|00002e30| 31 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1       |        |
|00002e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002e50| 20 3a f4 20 69 6e 63 2e | 20 74 68 65 20 70 6f 69 | :. inc.| the poi|
|00002e60| 6e 74 65 72 0d 00 f4 18 | fd 20 63 68 61 72 25 3d |nter....|. char%=|
|00002e70| 31 33 20 84 20 70 74 72 | 25 3d 33 30 0d 00 f5 04 |13 . ptr|%=30....|
|00002e80| 0d 00 f6 3a 20 20 20 20 | 20 20 20 20 f4 2d 2d 20 |...:    |    .-- |
|00002e90| 51 75 69 74 20 70 72 6f | 67 72 61 6d 20 69 66 20 |Quit pro|gram if |
|00002ea0| 74 68 65 20 63 68 65 63 | 6b 73 75 6d 20 64 6f 65 |the chec|ksum doe|
|00002eb0| 73 6e 27 74 20 74 61 6c | 6c 79 0d 00 f7 54 e7 20 |sn't tal|ly...T. |
|00002ec0| 63 68 65 63 6b 73 75 6d | 25 20 3c 3e 20 21 62 75 |checksum|% <> !bu|
|00002ed0| 66 66 65 72 25 20 85 20 | a2 20 30 2c 22 49 6e 76 |ffer% . |. 0,"Inv|
|00002ee0| 61 6c 69 64 20 72 65 67 | 69 73 74 72 61 74 69 6f |alid reg|istratio|
|00002ef0| 6e 20 66 69 6c 65 2c 20 | 70 72 6f 67 72 61 6d 20 |n file, |program |
|00002f00| 74 65 72 6d 69 6e 61 74 | 69 6e 67 22 3a e0 0d 00 |terminat|ing":...|
|00002f10| f8 04 0d 00 f9 3f 20 20 | 20 20 20 20 20 20 f4 2d |.....?  |      .-|
|00002f20| 2d 20 55 70 64 61 74 65 | 20 74 68 65 20 27 52 65 |- Update| the 'Re|
|00002f30| 67 20 6e 61 6d 65 27 20 | 69 63 6f 6e 20 69 6e 20 |g name' |icon in |
|00002f40| 74 68 65 20 27 49 6e 66 | 6f 27 20 77 69 6e 64 6f |the 'Inf|o' windo|
|00002f50| 77 0d 00 fa 36 21 62 6c | 6b 25 3d 69 6e 66 6f 5f |w...6!bl|k%=info_|
|00002f60| 77 25 3a 62 6c 6b 25 21 | 34 3d 37 3a c8 99 22 57 |w%:blk%!|4=7:.."W|
|00002f70| 69 6d 70 5f 47 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_GetI|conState|
|00002f80| 22 2c 2c 62 6c 6b 25 0d | 00 fb 14 24 28 62 6c 6b |",,blk%.|...$(blk|
|00002f90| 25 21 32 38 29 3d 6e 61 | 6d 65 24 0d 00 fc 05 e1 |%!28)=na|me$.....|
|00002fa0| 0d 00 fd 04 0d 00 fe 04 | 0d 00 ff 40 20 20 20 20 |........|...@    |
|00002fb0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00002fc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002fd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002fe0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 01 00 41 20 20 20 20 |--------|...A    |
|00002ff0| 7c 20 54 68 69 73 20 69 | 73 20 74 68 65 20 70 72 || This i|s the pr|
|00003000| 6f 63 65 64 75 72 65 20 | 74 68 61 74 20 6f 70 65 |ocedure |that ope|
|00003010| 6e 73 20 74 68 65 20 42 | 61 6e 6e 65 72 20 73 63 |ns the B|anner sc|
|00003020| 72 65 65 6e 2c 20 20 20 | 7c 0d 01 01 41 20 20 20 |reen,   ||...A   |
|00003030| 20 7c 20 68 6f 6c 64 73 | 20 65 76 65 72 79 74 68 | | holds| everyth|
|00003040| 69 6e 67 20 66 6f 72 20 | 66 69 76 65 20 73 65 63 |ing for |five sec|
|00003050| 6f 6e 64 73 2c 20 61 6e | 64 20 74 68 65 6e 20 63 |onds, an|d then c|
|00003060| 6c 6f 73 65 73 20 69 74 | 20 7c 0d 01 02 40 20 20 |loses it| |...@  |
|00003070| 20 20 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |   -----|--------|
|00003080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000030a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 01 03 0c dd f2 |--------|--......|
|000030b0| 62 61 6e 6e 65 72 0d 01 | 04 3a ea 20 73 68 69 66 |banner..|.:. shif|
|000030c0| 74 25 2c 20 78 70 6f 73 | 25 2c 20 79 70 6f 73 25 |t%, xpos|%, ypos%|
|000030d0| 2c 20 77 69 64 74 68 25 | 2c 20 68 65 69 67 68 74 |, width%|, height|
|000030e0| 25 2c 20 74 69 6d 65 25 | 2c 20 64 65 6c 61 79 25 |%, time%|, delay%|
|000030f0| 0d 01 05 04 0d 01 06 3c | 64 65 6c 61 79 25 3d 35 |.......<|delay%=5|
|00003100| 30 30 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |00      |        |
|00003110| 3a f4 2d 2d 20 53 65 74 | 20 74 69 6d 65 20 64 65 |:.-- Set| time de|
|00003120| 6c 61 79 20 74 6f 20 35 | 20 73 65 63 6f 6e 64 73 |lay to 5| seconds|
|00003130| 0d 01 07 04 0d 01 08 47 | 20 20 20 20 20 20 20 20 |.......G|        |
|00003140| f4 2d 2d 20 54 68 69 73 | 20 73 65 63 74 69 6f 6e |.-- This| section|
|00003150| 20 63 61 6c 63 75 6c 61 | 74 65 73 20 74 68 65 20 | calcula|tes the |
|00003160| 73 63 72 65 65 6e 20 73 | 69 7a 65 20 61 6e 64 20 |screen s|ize and |
|00003170| 61 64 6a 75 73 74 73 20 | 74 68 65 0d 01 09 48 20 |adjusts |the...H |
|00003180| 20 20 20 20 20 20 20 f4 | 2d 2d 20 77 69 6e 64 6f |       .|-- windo|
|00003190| 77 20 69 6e 66 6f 20 73 | 6f 20 74 68 61 74 20 69 |w info s|o that i|
|000031a0| 74 20 6f 70 65 6e 73 20 | 69 6e 20 74 68 65 20 63 |t opens |in the c|
|000031b0| 65 6e 74 72 65 20 6f 66 | 20 74 68 65 20 73 63 72 |entre of| the scr|
|000031c0| 65 65 6e 0d 01 0a 49 20 | 20 20 20 20 20 20 20 f4 |een...I |       .|
|000031d0| 2d 2d 20 77 68 61 74 65 | 76 65 72 20 64 69 6d 65 |-- whate|ver dime|
|000031e0| 6e 73 69 6f 6e 73 20 61 | 6e 64 20 64 65 66 69 6e |nsions a|nd defin|
|000031f0| 69 74 69 6f 6e 20 69 74 | 20 69 73 2e 20 59 6f 75 |ition it| is. You|
|00003200| 20 63 61 6e 20 6f 6d 69 | 74 20 69 74 0d 01 0b 46 | can omi|t it...F|
|00003210| 20 20 20 20 20 20 20 20 | f4 2d 2d 20 69 66 20 69 |        |.-- if i|
|00003220| 74 20 69 73 6e 27 74 20 | 6e 65 65 64 65 64 20 61 |t isn't |needed a|
|00003230| 6e 64 20 6a 75 73 74 20 | 63 61 6c 6c 20 27 57 69 |nd just |call 'Wi|
|00003240| 6d 70 5f 47 65 74 57 69 | 6e 64 6f 77 53 74 61 74 |mp_GetWi|ndowStat|
|00003250| 65 27 0d 01 0c 2c c8 99 | 20 22 4f 53 5f 52 65 61 |e'...,..| "OS_Rea|
|00003260| 64 4d 6f 64 65 56 61 72 | 69 61 62 6c 65 22 2c 2d |dModeVar|iable",-|
|00003270| 31 2c 34 20 b8 20 2c 2c | 73 68 69 66 74 25 0d 01 |1,4 . ,,|shift%..|
|00003280| 0d 2c c8 99 20 22 4f 53 | 5f 52 65 61 64 4d 6f 64 |.,.. "OS|_ReadMod|
|00003290| 65 56 61 72 69 61 62 6c | 65 22 2c 2d 31 2c 31 31 |eVariabl|e",-1,11|
|000032a0| 20 b8 20 2c 2c 78 70 6f | 73 25 0d 01 0e 17 78 70 | . ,,xpo|s%....xp|
|000032b0| 6f 73 25 3d 78 70 6f 73 | 25 3c 3c 73 68 69 66 74 |os%=xpos|%<<shift|
|000032c0| 25 0d 01 0f 2c c8 99 20 | 22 4f 53 5f 52 65 61 64 |%...,.. |"OS_Read|
|000032d0| 4d 6f 64 65 56 61 72 69 | 61 62 6c 65 22 2c 2d 31 |ModeVari|able",-1|
|000032e0| 2c 35 20 b8 20 2c 2c 73 | 68 69 66 74 25 0d 01 10 |,5 . ,,s|hift%...|
|000032f0| 2c c8 99 20 22 4f 53 5f | 52 65 61 64 4d 6f 64 65 |,.. "OS_|ReadMode|
|00003300| 56 61 72 69 61 62 6c 65 | 22 2c 2d 31 2c 31 32 20 |Variable|",-1,12 |
|00003310| b8 20 2c 2c 79 70 6f 73 | 25 0d 01 11 17 79 70 6f |. ,,ypos|%....ypo|
|00003320| 73 25 3d 79 70 6f 73 25 | 3c 3c 73 68 69 66 74 25 |s%=ypos%|<<shift%|
|00003330| 0d 01 12 31 21 62 6c 6b | 25 3d 62 61 6e 6e 65 72 |...1!blk|%=banner|
|00003340| 5f 77 25 3a c8 99 22 57 | 69 6d 70 5f 47 65 74 57 |_w%:.."W|imp_GetW|
|00003350| 69 6e 64 6f 77 53 74 61 | 74 65 22 2c 2c 62 6c 6b |indowSta|te",,blk|
|00003360| 25 0d 01 13 19 77 69 64 | 74 68 25 3d 62 6c 6b 25 |%....wid|th%=blk%|
|00003370| 21 31 32 2d 62 6c 6b 25 | 21 34 0d 01 14 1a 68 65 |!12-blk%|!4....he|
|00003380| 69 67 68 74 25 3d 62 6c | 6b 25 21 31 36 2d 62 6c |ight%=bl|k%!16-bl|
|00003390| 6b 25 21 38 0d 01 15 1a | 78 70 6f 73 25 3d 28 78 |k%!8....|xpos%=(x|
|000033a0| 70 6f 73 25 2d 77 69 64 | 74 68 25 29 81 32 0d 01 |pos%-wid|th%).2..|
|000033b0| 16 1b 79 70 6f 73 25 3d | 28 79 70 6f 73 25 2d 68 |..ypos%=|(ypos%-h|
|000033c0| 65 69 67 68 74 25 29 81 | 32 0d 01 17 10 62 6c 6b |eight%).|2....blk|
|000033d0| 25 21 34 3d 78 70 6f 73 | 25 0d 01 18 18 62 6c 6b |%!4=xpos|%....blk|
|000033e0| 25 21 31 32 3d 78 70 6f | 73 25 2b 77 69 64 74 68 |%!12=xpo|s%+width|
|000033f0| 25 0d 01 19 10 62 6c 6b | 25 21 38 3d 79 70 6f 73 |%....blk|%!8=ypos|
|00003400| 25 0d 01 1a 19 62 6c 6b | 25 21 31 36 3d 79 70 6f |%....blk|%!16=ypo|
|00003410| 73 25 2b 68 65 69 67 68 | 74 25 0d 01 1b 04 0d 01 |s%+heigh|t%......|
|00003420| 1c 3c 20 20 20 20 20 20 | 20 20 f4 2d 2d 20 42 61 |.<      |  .-- Ba|
|00003430| 6e 6e 65 72 20 77 69 6e | 64 6f 77 20 70 6f 73 69 |nner win|dow posi|
|00003440| 74 69 6f 6e 20 61 64 6a | 75 73 74 65 64 2c 20 6e |tion adj|usted, n|
|00003450| 6f 77 20 6f 70 65 6e 20 | 69 74 0d 01 1d 1d c8 99 |ow open |it......|
|00003460| 22 57 69 6d 70 5f 4f 70 | 65 6e 57 69 6e 64 6f 77 |"Wimp_Op|enWindow|
|00003470| 22 2c 2c 62 6c 6b 25 0d | 01 1e 3b ef 20 37 20 20 |",,blk%.|..;. 7  |
|00003480| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003490| 20 3a f4 20 27 62 65 65 | 70 27 20 74 6f 20 64 72 | :. 'bee|p' to dr|
|000034a0| 61 77 20 75 73 65 72 73 | 20 61 74 74 65 6e 74 69 |aw users| attenti|
|000034b0| 6f 6e 0d 01 1f 44 c8 99 | 22 48 6f 75 72 67 6c 61 |on...D..|"Hourgla|
|000034c0| 73 73 5f 4f 6e 22 20 20 | 20 20 20 20 20 3a f4 20 |ss_On"  |     :. |
|000034d0| 61 6e 64 20 70 75 74 20 | 74 68 65 20 48 6f 75 72 |and put |the Hour|
|000034e0| 67 6c 61 73 73 20 6f 6e | 20 77 68 69 6c 65 20 77 |glass on| while w|
|000034f0| 61 69 74 69 6e 67 0d 01 | 20 04 0d 01 21 1e 20 20 |aiting..| ...!.  |
|00003500| 20 20 20 20 20 20 f4 2d | 2d 20 52 65 61 64 20 74 |      .-|- Read t|
|00003510| 68 65 20 63 6c 6f 63 6b | 0d 01 22 24 c8 99 22 4f |he clock|.."$.."O|
|00003520| 53 5f 52 65 61 64 4d 6f | 6e 6f 74 6f 6e 69 63 54 |S_ReadMo|notonicT|
|00003530| 69 6d 65 22 20 b8 20 74 | 69 6d 65 25 0d 01 23 17 |ime" . t|ime%..#.|
|00003540| 64 65 6c 61 79 25 3d 64 | 65 6c 61 79 25 2b 74 69 |delay%=d|elay%+ti|
|00003550| 6d 65 25 0d 01 24 04 0d | 01 25 4d 20 20 20 20 20 |me%..$..|.%M     |
|00003560| 20 20 20 f4 2d 2d 20 49 | 20 64 6f 6e 27 74 20 6b |   .-- I| don't k|
|00003570| 6e 6f 77 20 77 68 79 20 | 74 68 69 73 20 69 73 20 |now why |this is |
|00003580| 6e 65 65 64 65 64 2c 20 | 62 75 74 20 69 74 20 73 |needed, |but it s|
|00003590| 65 65 6d 73 20 74 6f 20 | 62 65 20 6e 65 63 65 73 |eems to |be neces|
|000035a0| 73 61 72 79 0d 01 26 44 | 20 20 20 20 20 20 20 20 |sary..&D|        |
|000035b0| f4 2d 2d 20 74 6f 20 70 | 6f 6c 6c 20 74 68 65 20 |.-- to p|oll the |
|000035c0| 57 69 6d 70 20 73 65 76 | 65 72 61 6c 20 74 69 6d |Wimp sev|eral tim|
|000035d0| 65 73 20 74 6f 20 64 69 | 73 70 6c 61 79 20 74 68 |es to di|splay th|
|000035e0| 65 20 77 69 6e 64 6f 77 | 0d 01 27 23 e3 20 49 25 |e window|..'#. I%|
|000035f0| 3d 30 b8 35 3a c8 99 22 | 57 69 6d 70 5f 50 6f 6c |=0.5:.."|Wimp_Pol|
|00003600| 6c 22 2c 30 2c 62 6c 6b | 25 3a ed 0d 01 28 04 0d |l",0,blk|%:...(..|
|00003610| 01 29 44 20 20 20 20 20 | 20 20 20 f4 2d 2d 20 4e |.)D     |   .-- N|
|00003620| 6f 77 20 77 61 69 74 20 | 75 6e 74 69 6c 20 74 69 |ow wait |until ti|
|00003630| 6d 65 20 69 73 20 3e 20 | 74 68 65 20 66 69 72 73 |me is > |the firs|
|00003640| 74 20 74 69 6d 65 20 72 | 65 61 64 20 2b 20 64 65 |t time r|ead + de|
|00003650| 6c 61 79 0d 01 2a 48 20 | 20 20 20 20 20 20 20 f4 |lay..*H |       .|
|00003660| 2d 2d 20 49 74 20 77 6f | 75 6c 64 20 68 61 76 65 |-- It wo|uld have|
|00003670| 20 62 65 65 6e 20 65 61 | 73 69 65 72 20 74 6f 20 | been ea|sier to |
|00003680| 75 73 65 20 74 68 65 20 | 42 61 73 69 63 20 54 49 |use the |Basic TI|
|00003690| 4d 45 20 76 61 72 69 61 | 62 6c 65 0d 01 2b 45 20 |ME varia|ble..+E |
|000036a0| 20 20 20 20 20 20 20 f4 | 2d 2d 20 62 75 74 20 74 |       .|-- but t|
|000036b0| 68 69 73 20 69 73 20 6d | 6f 72 65 20 65 61 73 69 |his is m|ore easi|
|000036c0| 6c 79 20 74 72 61 6e 73 | 6c 61 74 65 64 20 74 6f |ly trans|lated to|
|000036d0| 20 6d 61 63 68 69 6e 65 | 20 63 6f 64 65 20 69 66 | machine| code if|
|000036e0| 0d 01 2c 3c 20 20 20 20 | 20 20 20 20 f4 2d 2d 20 |..,<    |    .-- |
|000036f0| 79 6f 75 20 77 61 6e 74 | 20 74 6f 20 6d 61 6b 65 |you want| to make|
|00003700| 20 79 6f 75 72 20 70 72 | 6f 67 72 61 6d 20 68 61 | your pr|ogram ha|
|00003710| 72 64 65 72 20 74 6f 20 | 68 61 63 6b 0d 01 2d 05 |rder to |hack..-.|
|00003720| f5 0d 01 2e 25 20 c8 99 | 22 4f 53 5f 52 65 61 64 |....% ..|"OS_Read|
|00003730| 4d 6f 6e 6f 74 6f 6e 69 | 63 54 69 6d 65 22 20 b8 |Monotoni|cTime" .|
|00003740| 20 74 69 6d 65 25 0d 01 | 2f 12 fd 20 74 69 6d 65 | time%..|/.. time|
|00003750| 25 3e 64 65 6c 61 79 25 | 0d 01 30 04 0d 01 31 4e |%>delay%|..0...1N|
|00003760| 20 20 20 20 20 20 20 20 | f4 2d 2d 20 57 61 69 74 |        |.-- Wait|
|00003770| 20 6f 76 65 72 2c 20 73 | 68 75 74 20 74 68 65 20 | over, s|hut the |
|00003780| 62 61 6e 6e 65 72 20 77 | 69 6e 64 6f 77 2c 20 68 |banner w|indow, h|
|00003790| 6f 75 72 67 6c 61 73 73 | 20 6f 66 66 2c 20 61 6e |ourglass| off, an|
|000037a0| 64 20 63 6f 6e 74 69 6e | 75 65 0d 01 32 2e 21 62 |d contin|ue..2.!b|
|000037b0| 6c 6b 25 3d 62 61 6e 6e | 65 72 5f 77 25 3a c8 99 |lk%=bann|er_w%:..|
|000037c0| 22 57 69 6d 70 5f 43 6c | 6f 73 65 57 69 6e 64 6f |"Wimp_Cl|oseWindo|
|000037d0| 77 22 2c 2c 62 6c 6b 25 | 0d 01 33 15 c8 99 22 48 |w",,blk%|..3..."H|
|000037e0| 6f 75 72 67 6c 61 73 73 | 5f 4f 66 66 22 0d 01 34 |ourglass|_Off"..4|
|000037f0| 05 e1 0d 01 35 04 0d 01 | 36 04 0d 01 37 42 20 20 |....5...|6...7B  |
|00003800| 20 20 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |   -----|--------|
|00003810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003820| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003830| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 01 38 43 |--------|----..8C|
|00003840| 20 20 20 20 7c 20 54 68 | 69 73 20 70 72 6f 63 65 |    | Th|is proce|
|00003850| 64 75 72 65 20 72 65 61 | 64 73 20 74 68 65 20 6e |dure rea|ds the n|
|00003860| 61 6d 65 20 65 6e 74 65 | 72 65 64 20 69 6e 20 74 |ame ente|red in t|
|00003870| 68 65 20 27 52 65 67 69 | 73 74 65 72 27 20 7c 0d |he 'Regi|ster' |.|
|00003880| 01 39 43 20 20 20 20 7c | 20 77 69 6e 64 6f 77 2c |.9C    || window,|
|00003890| 20 63 72 65 61 74 65 73 | 20 74 68 65 20 65 6e 63 | creates| the enc|
|000038a0| 72 79 70 74 65 64 20 66 | 69 6c 65 20 61 6e 64 20 |rypted f|ile and |
|000038b0| 53 61 76 65 73 20 69 74 | 20 20 20 20 20 20 20 20 |Saves it|        |
|000038c0| 20 7c 0d 01 3a 42 20 20 | 20 20 20 2d 2d 2d 2d 2d | |..:B  |   -----|
|000038d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000038e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000038f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003900| 2d 2d 2d 2d 0d 01 3b 0a | dd f2 73 61 76 65 0d 01 |----..;.|..save..|
|00003910| 3c 22 ea 20 70 74 72 25 | 2c 20 63 68 65 63 6b 73 |<". ptr%|, checks|
|00003920| 75 6d 25 2c 20 63 68 61 | 72 25 2c 20 65 6f 72 25 |um%, cha|r%, eor%|
|00003930| 0d 01 3d 20 ea 85 3a ee | 85 ea 20 f2 72 65 70 6f |..= ..:.|.. .repo|
|00003940| 72 74 5f 65 72 72 6f 72 | 28 f6 24 2c a3 29 3a e1 |rt_error|(.$,.):.|
|00003950| 0d 01 3e 26 49 25 3d 62 | 6c 6b 25 2b 34 34 3a c8 |..>&I%=b|lk%+44:.|
|00003960| 95 3f 49 25 3e 33 31 3a | 49 25 2b 3d 31 3a ce 3a |.?I%>31:|I%+=1:.:|
|00003970| 3f 49 25 3d 31 33 0d 01 | 3f 04 0d 01 40 1f 20 20 |?I%=13..|?...@.  |
|00003980| 20 20 20 20 20 20 f4 2d | 2d 20 45 6e 63 6f 64 65 |      .-|- Encode|
|00003990| 20 74 68 65 20 6e 61 6d | 65 0d 01 41 42 21 62 6c | the nam|e..AB!bl|
|000039a0| 6b 25 3d 72 65 67 69 73 | 74 65 72 5f 77 25 3a 62 |k%=regis|ter_w%:b|
|000039b0| 6c 6b 25 21 34 3d 31 20 | 20 20 20 20 20 3a f4 20 |lk%!4=1 |     :. |
|000039c0| 63 6f 70 79 20 74 68 65 | 20 6e 61 6d 65 20 69 6e |copy the| name in|
|000039d0| 20 74 68 65 20 77 69 6e | 64 6f 77 0d 01 42 41 c8 | the win|dow..BA.|
|000039e0| 99 22 57 69 6d 70 5f 47 | 65 74 49 63 6f 6e 53 74 |."Wimp_G|etIconSt|
|000039f0| 61 74 65 22 2c 2c 62 6c | 6b 25 20 20 20 20 3a f4 |ate",,bl|k%    :.|
|00003a00| 20 74 6f 20 74 68 65 20 | 62 75 66 66 65 72 2c 20 | to the |buffer, |
|00003a10| 6c 65 61 76 69 6e 67 20 | 72 6f 6f 6d 0d 01 43 44 |leaving |room..CD|
|00003a20| 24 28 62 75 66 66 65 72 | 25 2b 34 29 3d 24 28 62 |$(buffer|%+4)=$(b|
|00003a30| 6c 6b 25 21 32 38 29 20 | 20 20 20 20 20 20 20 20 |lk%!28) |        |
|00003a40| 3a f4 20 61 74 20 74 68 | 65 20 73 74 61 72 74 20 |:. at th|e start |
|00003a50| 66 6f 72 20 74 68 65 20 | 63 68 65 63 6b 73 75 6d |for the |checksum|
|00003a60| 0d 01 44 04 0d 01 45 3f | 20 20 20 20 20 20 20 f4 |..D...E?|       .|
|00003a70| 20 4d 61 6b 65 20 73 75 | 72 65 20 74 68 61 74 20 | Make su|re that |
|00003a80| 73 6f 6d 65 74 68 69 6e | 67 20 68 61 73 20 61 63 |somethin|g has ac|
|00003a90| 74 75 61 6c 6c 79 20 62 | 65 65 6e 20 65 6e 74 65 |tually b|een ente|
|00003aa0| 72 65 64 0d 01 46 4b e7 | 20 24 28 62 75 66 66 65 |red..FK.| $(buffe|
|00003ab0| 72 25 2b 34 29 3d 22 22 | 20 49 25 3d a4 61 6c 65 |r%+4)=""| I%=.ale|
|00003ac0| 72 74 28 31 2c 22 59 6f | 75 20 6d 75 73 74 20 65 |rt(1,"Yo|u must e|
|00003ad0| 6e 74 65 72 20 74 68 65 | 20 75 73 65 72 27 73 20 |nter the| user's |
|00003ae0| 6e 61 6d 65 20 66 69 72 | 73 74 22 29 3a e1 0d 01 |name fir|st"):...|
|00003af0| 47 04 0d 01 48 38 65 6f | 72 25 3d 37 20 20 20 20 |G...H8eo|r%=7    |
|00003b00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003b10| 20 20 20 20 20 20 3a f4 | 20 73 65 74 20 74 68 65 |      :.| set the|
|00003b20| 20 45 4f 52 20 76 61 6c | 75 65 0d 01 49 38 63 68 | EOR val|ue..I8ch|
|00003b30| 65 63 6b 73 75 6d 25 3d | 30 20 20 20 20 20 20 20 |ecksum%=|0       |
|00003b40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a f4 |        |      :.|
|00003b50| 20 7a 65 72 6f 20 74 68 | 65 20 63 68 65 63 6b 73 | zero th|e checks|
|00003b60| 75 6d 0d 01 4a 42 70 74 | 72 25 3d 34 20 20 20 20 |um..JBpt|r%=4    |
|00003b70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003b80| 20 20 20 20 20 20 3a f4 | 20 70 74 72 20 70 6f 69 |      :.| ptr poi|
|00003b90| 6e 74 73 20 74 6f 20 73 | 74 61 72 74 20 6f 66 20 |nts to s|tart of |
|00003ba0| 6e 61 6d 65 0d 01 4b 04 | 0d 01 4c 05 f5 0d 01 4d |name..K.|..L....M|
|00003bb0| 40 20 63 68 61 72 25 3d | 62 75 66 66 65 72 25 3f |@ char%=|buffer%?|
|00003bc0| 70 74 72 25 20 20 20 20 | 20 20 20 20 20 20 20 20 |ptr%    |        |
|00003bd0| 20 3a f4 20 47 65 74 20 | 63 68 61 72 61 63 74 65 | :. Get |characte|
|00003be0| 72 20 66 72 6f 6d 20 73 | 74 72 69 6e 67 0d 01 4e |r from s|tring..N|
|00003bf0| 3d 20 63 68 65 63 6b 73 | 75 6d 25 2b 3d 63 68 61 |= checks|um%+=cha|
|00003c00| 72 25 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |r%      |        |
|00003c10| 20 3a f4 20 41 64 64 20 | 69 74 20 74 6f 20 74 68 | :. Add |it to th|
|00003c20| 65 20 63 68 65 63 6b 73 | 75 6d 0d 01 4f 50 20 62 |e checks|um..OP b|
|00003c30| 75 66 66 65 72 25 3f 70 | 74 72 25 3d 63 68 61 72 |uffer%?p|tr%=char|
|00003c40| 25 20 82 20 65 6f 72 25 | 20 20 20 20 3a f4 20 45 |% . eor%|    :. E|
|00003c50| 4f 52 20 69 74 20 77 69 | 74 68 20 74 68 65 20 65 |OR it wi|th the e|
|00003c60| 6f 72 20 76 61 6c 75 65 | 20 61 6e 64 20 73 74 6f |or value| and sto|
|00003c70| 72 65 20 69 74 20 62 61 | 63 6b 0d 01 50 2f 20 70 |re it ba|ck..P/ p|
|00003c80| 74 72 25 2b 3d 31 20 20 | 20 20 20 20 20 20 20 20 |tr%+=1  |        |
|00003c90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a f4 |        |      :.|
|00003ca0| 20 69 6e 63 2e 20 70 74 | 72 0d 01 51 0e fd 20 63 | inc. pt|r..Q.. c|
|00003cb0| 68 61 72 25 3d 31 33 0d | 01 52 46 21 62 75 66 66 |har%=13.|.RF!buff|
|00003cc0| 65 72 25 3d 63 68 65 63 | 6b 73 75 6d 25 20 20 20 |er%=chec|ksum%   |
|00003cd0| 20 20 20 20 20 20 20 20 | 20 20 20 3a f4 20 73 74 |        |   :. st|
|00003ce0| 6f 72 65 20 74 68 65 20 | 63 68 65 63 6b 73 75 6d |ore the |checksum|
|00003cf0| 20 61 74 20 74 68 65 20 | 73 74 61 72 74 0d 01 53 | at the |start..S|
|00003d00| 04 0d 01 54 3c 20 20 20 | 20 20 20 20 20 f4 2d 2d |...T<   |     .--|
|00003d10| 20 4e 6f 77 20 73 61 76 | 65 20 36 34 20 62 79 74 | Now sav|e 64 byt|
|00003d20| 65 73 20 61 74 20 74 68 | 65 20 73 74 61 72 74 20 |es at th|e start |
|00003d30| 6f 66 20 74 68 65 20 62 | 75 66 66 65 72 0d 01 55 |of the b|uffer..U|
|00003d40| 37 c8 99 20 22 4f 53 5f | 46 69 6c 65 22 2c 31 30 |7.. "OS_|File",10|
|00003d50| 2c 24 28 62 6c 6b 25 2b | 34 34 29 2c 26 46 46 44 |,$(blk%+|44),&FFD|
|00003d60| 2c 2c 62 75 66 66 65 72 | 25 2c 62 75 66 66 65 72 |,,buffer|%,buffer|
|00003d70| 25 2b 36 34 0d 01 56 04 | 0d 01 57 35 20 20 20 20 |%+64..V.|..W5    |
|00003d80| 20 20 20 20 f4 2d 2d 20 | 43 6c 6f 73 65 20 74 68 |    .-- |Close th|
|00003d90| 65 20 77 69 6e 64 6f 77 | 20 74 6f 20 6c 65 61 76 |e window| to leav|
|00003da0| 65 20 74 68 69 6e 67 73 | 20 74 69 64 79 0d 01 58 |e things| tidy..X|
|00003db0| 30 21 62 6c 6b 25 3d 72 | 65 67 69 73 74 65 72 5f |0!blk%=r|egister_|
|00003dc0| 77 25 3a c8 99 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |w%:.."Wi|mp_Close|
|00003dd0| 57 69 6e 64 6f 77 22 2c | 2c 62 6c 6b 25 0d 01 59 |Window",|,blk%..Y|
|00003de0| 05 e1 0d 01 5a 04 0d ff | 46 69 6c 65 44 61 74 61 |....Z...|FileData|
|00003df0| 82 54 65 6d 70 6c 61 74 | 65 73 00 00 3b 05 00 00 |.Templat|es..;...|
|00003e00| 46 ec ff ff 6e e3 55 24 | 03 00 47 d6 0b 05 00 00 |F...n.U$|..G.....|
|00003e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 5c 00 00 00 |........|....\...|
|00003e20| b6 01 00 00 01 00 00 00 | 69 6e 66 6f 0d 00 00 00 |........|info....|
|00003e30| 00 00 00 00 12 02 00 00 | a5 00 00 00 01 00 00 00 |........|........|
|00003e40| 72 65 67 69 73 74 65 72 | 0d 00 00 00 b7 02 00 00 |register|........|
|00003e50| 54 02 00 00 01 00 00 00 | 62 61 6e 6e 65 72 0d 00 |T.......|banner..|
|00003e60| 00 00 00 00 00 00 00 00 | 72 02 00 00 f8 03 00 00 |........|r.......|
|00003e70| 56 04 00 00 00 05 00 00 | 00 00 00 00 00 00 00 00 |V.......|........|
|00003e80| 99 f3 26 02 12 00 05 87 | 07 02 07 01 03 01 0c 00 |..&.....|........|
|00003e90| 00 00 00 00 f8 fe ff ff | e4 01 00 00 00 00 00 00 |........|........|
|00003ea0| 3d 01 00 27 00 00 00 00 | 01 00 00 00 00 00 00 00 |=..'....|........|
|00003eb0| 78 01 00 00 ff ff ff ff | 0d 00 00 00 09 00 00 00 |x.......|........|
|00003ec0| 04 00 00 00 fc fe ff ff | e0 01 00 00 fc ff ff ff |........|........|
|00003ed0| 1d 01 00 17 84 01 00 00 | 85 01 00 00 01 00 00 00 |........|........|
|00003ee0| 94 00 00 00 bc ff ff ff | d0 01 00 00 ec ff ff ff |........|........|
|00003ef0| 3d 01 00 17 88 01 00 00 | 8d 01 00 00 1c 00 00 00 |=.......|........|
|00003f00| 94 00 00 00 84 ff ff ff | d0 01 00 00 b4 ff ff ff |........|........|
|00003f10| 3d 01 00 17 90 01 00 00 | 95 01 00 00 1c 00 00 00 |=.......|........|
|00003f20| 94 00 00 00 4c ff ff ff | d0 01 00 00 7c ff ff ff |....L...|....|...|
|00003f30| 3d 01 00 17 98 01 00 00 | 9d 01 00 00 1c 00 00 00 |=.......|........|
|00003f40| 0c 00 00 00 bc ff ff ff | 90 00 00 00 e4 ff ff ff |........|........|
|00003f50| 11 02 00 17 50 72 6f 67 | 72 61 6d 0d 10 00 00 00 |....Prog|ram.....|
|00003f60| 0c 00 00 00 88 ff ff ff | 90 00 00 00 b0 ff ff ff |........|........|
|00003f70| 11 02 00 17 56 65 72 73 | 69 6f 6e 0d 10 00 00 00 |....Vers|ion.....|
|00003f80| 0c 00 00 00 50 ff ff ff | 90 00 00 00 78 ff ff ff |....P...|....x...|
|00003f90| 11 02 00 17 41 75 74 68 | 6f 72 0d 0d 10 00 00 00 |....Auth|or......|
|00003fa0| 94 00 00 00 14 ff ff ff | d0 01 00 00 44 ff ff ff |........|....D...|
|00003fb0| 3d 01 00 17 a0 01 00 00 | b3 01 00 00 1c 00 00 00 |=.......|........|
|00003fc0| 0c 00 00 00 18 ff ff ff | 90 00 00 00 40 ff ff ff |........|....@...|
|00003fd0| 11 02 00 17 52 65 67 2e | 20 74 6f 0d 10 00 00 00 |....Reg.| to.....|
|00003fe0| 42 61 6e 6e 65 72 20 44 | 65 6d 6f 0d 0d 52 33 0d |Banner D|emo..R3.|
|00003ff0| 44 61 74 61 0d 52 32 0d | 44 61 74 61 0d 52 32 0d |Data.R2.|Data.R2.|
|00004000| 44 61 74 61 0d 52 32 0d | 2a 2a 20 55 6e 72 65 67 |Data.R2.|** Unreg|
|00004010| 69 73 74 65 72 65 64 20 | 2a 2a 0d 52 32 0d ce 01 |istered |**.R2...|
|00004020| 00 00 78 01 00 00 4a 03 | 00 00 26 02 00 00 00 00 |..x...J.|..&.....|
|00004030| 00 00 00 00 00 00 ff ff | ff ff 13 00 04 07 07 02 |........|........|
|00004040| 07 01 03 01 0c 00 00 00 | 00 00 52 ff ff ff 7c 01 |........|..R...|.|
|00004050| 00 00 00 00 00 00 3d 00 | 00 27 00 30 00 00 01 00 |......=.|.'.0....|
|00004060| 00 00 00 00 00 00 52 65 | 67 69 73 74 65 72 0d 0d |......Re|gister..|
|00004070| 0d 65 02 00 00 00 a2 00 | 00 00 a8 ff ff ff ea 00 |.e......|........|
|00004080| 00 00 ec ff ff ff 02 61 | 00 17 98 00 00 00 01 00 |.......a|........|
|00004090| 00 00 0c 00 00 00 0e 00 | 00 00 5c ff ff ff 6e 01 |........|..\...n.|
|000040a0| 00 00 94 ff ff ff 35 f1 | 00 07 a1 00 00 00 a2 00 |......5.|........|
|000040b0| 00 00 18 00 00 00 66 69 | 6c 65 5f 66 66 64 0d 0d |......fi|le_ffd..|
|000040c0| 52 37 0d aa 01 00 00 54 | 01 00 00 da 03 00 00 18 |R7.....T|........|
|000040d0| 03 00 00 00 00 00 00 00 | 00 00 00 ff ff ff ff 32 |........|.......2|
|000040e0| 00 00 80 03 02 02 ff 03 | 01 0c 00 00 00 00 00 26 |........|.......&|
|000040f0| fe ff ff 30 02 00 00 00 | 00 00 00 3d 00 00 00 00 |...0....|...=....|
|00004100| 00 00 00 01 00 00 00 00 | 00 00 00 3c 55 6e 74 69 |........|...<Unti|
|00004110| 74 6c 65 64 3e 0d 65 0a | 00 00 00 0c 00 00 00 3c |tled>.e.|.......<|
|00004120| fe ff ff 30 02 00 00 f4 | ff ff ff 20 01 00 77 98 |...0....|... ..w.|
|00004130| 01 00 00 ff ff ff ff 01 | 00 00 00 00 00 00 00 48 |........|.......H|
|00004140| fe ff ff 24 02 00 00 00 | 00 00 00 3d 01 00 17 99 |...$....|...=....|
|00004150| 01 00 00 9a 01 00 00 01 | 00 00 00 12 00 00 00 18 |........|........|
|00004160| ff ff ff 12 02 00 00 b4 | ff ff ff 3d 01 00 17 9d |........|...=....|
|00004170| 01 00 00 9e 01 00 00 0a | 00 00 00 2a 00 00 00 98 |........|...*....|
|00004180| ff ff ff 92 00 00 00 c4 | ff ff ff 3d 01 00 1b a1 |........|...=....|
|00004190| 01 00 00 a7 01 00 00 10 | 00 00 00 14 00 00 00 54 |........|.......T|
|000041a0| fe ff ff 10 02 00 00 90 | fe ff ff 3d 01 00 b0 aa |........|...=....|
|000041b0| 01 00 00 c8 01 00 00 1e | 00 00 00 0c 00 00 00 cc |........|........|
|000041c0| ff ff ff 1a 02 00 00 f8 | ff ff ff 39 01 00 17 cb |........|...9....|
|000041d0| 01 00 00 ff ff ff ff 22 | 00 00 00 0c 00 00 00 e4 |......."|........|
|000041e0| fe ff ff 1e 02 00 00 0c | ff ff ff 39 01 00 17 ed |........|...9....|
|000041f0| 01 00 00 ff ff ff ff 29 | 00 00 00 10 00 00 00 bc |.......)|........|
|00004200| fe ff ff 16 02 00 00 e4 | fe ff ff 39 01 00 17 0f |........|...9....|
|00004210| 02 00 00 ff ff ff ff 27 | 00 00 00 0e 00 00 00 94 |.......'|........|
|00004220| fe ff ff 18 02 00 00 bc | fe ff ff 39 01 00 17 2f |........|...9.../|
|00004230| 02 00 00 ff ff ff ff 2a | 00 00 00 54 00 00 00 2c |.......*|...T...,|
|00004240| ff ff ff ca 01 00 00 9c | ff ff ff 59 01 00 01 4a |........|...Y...J|
|00004250| 02 00 00 ff ff ff ff 10 | 00 00 00 0d 0d 72 31 0d |........|.....r1.|
|00004260| 0d 52 31 0d 49 74 20 69 | 73 0d 72 31 0d 54 68 69 |.R1.It i|s.r1.Thi|
|00004270| 73 20 70 72 6f 67 72 61 | 6d 20 69 73 20 55 6e 72 |s progra|m is Unr|
|00004280| 65 67 69 73 74 65 72 65 | 64 21 0d 72 31 0d 54 68 |egistere|d!.r1.Th|
|00004290| 69 73 20 70 72 6f 67 72 | 61 6d 20 69 73 20 4e 4f |is progr|am is NO|
|000042a0| 54 20 50 75 62 6c 69 63 | 20 44 6f 6d 61 69 6e 0d |T Public| Domain.|
|000042b0| 49 66 20 79 6f 75 20 6d | 61 6b 65 20 72 65 67 75 |If you m|ake regu|
|000042c0| 6c 61 72 20 75 73 65 20 | 6f 66 20 69 74 20 79 6f |lar use |of it yo|
|000042d0| 75 0d 61 72 65 20 6c 65 | 67 61 6c 6c 79 20 6f 62 |u.are le|gally ob|
|000042e0| 6c 69 67 65 64 20 74 6f | 20 52 45 47 49 53 54 45 |liged to| REGISTE|
|000042f0| 52 0d 53 65 65 20 74 68 | 65 20 4d 61 6e 75 61 6c |R.See th|e Manual|
|00004300| 20 66 6f 72 20 64 65 74 | 61 69 6c 73 0d 53 68 61 | for det|ails.Sha|
|00004310| 72 65 77 61 72 65 0d e0 | 01 00 00 e0 01 00 00 48 |reware..|.......H|
|00004320| 6f 6d 65 72 74 6f 6e 2e | 4d 65 64 69 75 6d 2e 4f |omerton.|Medium.O|
|00004330| 62 6c 69 71 75 65 0d 6d | 61 6c 0d 61 6c 0d 00 00 |blique.m|al.al...|
|00004340| 00 00 00 00 00 00 00    |                         |....... |        |
+--------+-------------------------+-------------------------+--------+--------+